2024年3月28日发(作者：)

EXCEL文件去掉工作表保护密码的方法

1、打开需要解除保护的EXCEL工作表；

2、选择工具---宏---录制新宏---输入名字如:aa；

3、停止录制(这样得到一个空宏)；

4、工具---宏---宏,选aa,点编辑按钮；

5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)；

6、关闭编辑窗口；

7、工具---宏---宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,旧的

密码自动提示，工作表也自动解除保护了。

需拷贝内容如下

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE & "Please report failure " & _

"to the mming newsgroup."