第一步，先找到一个带有有工作表保护密码的Excel工作表，然后把后缀名称改为.rar。 第二步，用压缩文件打开，然后找压缩的对应路径。 第三步，把从压缩文件里面找到的.xml文件，然后拖拽出来，进行修改。 第四步，把保护代码删除来撤消工作表保
现在很多人都在使用excel软件，那么该如何撤销工作表保护呢？今天小编为大家讲讲如何撤销工作表保护，希望对大家有所帮助。
材料/工具
工作表
方法
首先打开excel，点击宏中的选择“录制宏”
1、打开受保护的Excel表格，可以看到无法对表格进行操作。 2、点击左上角的“文件”选项。 3、在弹出的页面中点击“保护工作表”下方的小三角。 4、在弹出的选项中点击“保护当前工作表”。 5、之后弹出撤销工作表保护的对话框，输入密码（如果之前设
然后在弹出来的方框中输入宏的名称，点击确认。
1.在桌面中找到需要进行修改的表格，点击打开该表格进入编辑页面，如下图所示。 2.在编辑页面中找到审阅选项，点击该选项进入审阅页面，如下图所示。 3.在页面中找到撤销工作保护选项，点击该选项进行相关功能，如下图所示。 4.当撤销工作表保护
然后在宏中点击“停止录制”。
在工作表的标签上点击鼠标右键——查看代码——把下面代码粘贴上，然后按F5 Sub PasswordBreaker() '破解工作表保护密码 Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Int
然后选择查看宏。
我有一种方法可以不知道密码也可以.就是把内容复制到一个新的表格中就可以了,我就经常这样做,因为别的公司给我们的价格表老是保护,我就复制到一个新的文件里就能编辑了. 这个方法只对EXCEL有效,因为他虽然保护了不能修改但可以看到内容,可以复制
然后点击编辑。
1、在电脑中找到需要进行才操作的工作表。除此之外还要知道这个工作表的保护密码。 2、打开此工作表后，点击功能区内的“审阅”选项。 3、在展开的审阅下拉菜单中点击选择箭头所指的“撤销工作表保护”。 4、此时系统弹出撤销工作表保护的对话框。 5
最后在弹出来的代码框输入下面的代码。Option Explicit
1、将Excel文件扩展名改为rar，如下图所示： 2、然后用解压缩文件打开，双击其中的xl文件夹，如下图所示： 3、继续双击其中的worksheets文件夹，如下图所示： 4、此时就可以看到工作簿中所有的工作表名字，双击其中设置了保护工作表的工作表名，
Public Sub AllInternalPasswords()
使用以下步骤进行破解被保护的工作表： 所需材料：记事本、Excel。 一、首先点击被保存的工作薄，按F2重命名，格式改为RAR。 二、这时表格会变为一个压缩包，打开该压缩包，打开后双击打开XL文件夹。 三、然后再双击打开Worksheets文件夹。 四、
' Breaks worksheet and workbook structure passwords. Bob McCormick
工具：excel2011 1、先打开保护密码的Excel工作表格，如图所示，修改后缀名称为.rar。 2、然后用压缩文件打开，如图所示，并找压缩的路径。 3、压缩文件找到.xml后缀的文件，直接拖拽出来，重新修改。 4、找到这个.xml文件打开，在文字里面搜索p
' probably originator of base code algorithm modified for coverage
取消部分单元格的保护状态 选中对象单元格区域，右键单击，选择“设置单元格格式”，如下图所示； 然后按照前面的操作，清除“锁定”和“隐藏”前的钩，如下图所示。
' of workbook structure / windows passwords and for multiple passwords
1、在电脑上安装好excel软件，双击这个excel软件的图标打开它。 2、去下载一个被文件保护了的excel文档，通过刚才打开的excel软件打开这个被保护的excel文档。 3、就是双击这个被保护了的excel文档其中某个单元格，发现提示无法进一步编辑 4、点
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
示例在EXCEL2007中进行，可以不使用宏设置，直接按以下方法操作。 1、先打开EXCEL,sheet1是一个被保护的工作表，当点击单元格尝试编辑时。会提示试图更改的单元格或图表在受保护的工作表中！ 2、点击工作表左上角全选，按Ctrl+C 复制工作表，然
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
在excel中取消工作表的保护命令的方法： 1.打开excel，运行视图—宏—录制新宏—输入宏名如:aa（aa是可随意输入）。 2.停止录制，这样得到一个空宏。 3.同样视图—宏—查看宏—选aa（aa为之前新建的宏）—点击编辑按钮。 4.删除窗口中的所有字符，复制
' eliminate one Exit Sub (Version 1.1.1)
Excel工作表密码保护的解除方法 Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。 出现这种情况，应该怎么
' Reveals hashed passwords NOT original passwords
1、首先，我们打开一个含有密码的excel文档，然后我们点击文件； 2、弹出的界面，我们点击信息，然后我们点击保护工作簿； 3、弹出的界面，我们点击用密码进行加密； 4、弹出的界面，我们将密码进行删除，删除后我们点击确定，这样我们就取消了
Const DBLSPACE As String = vbNewLine & vbNewLine
一、把Excel文件的扩展名xlsx修改为Rar。 二、Excel文件变成了压缩包。（不如果不显示后辍 ，选中工具栏中的文件扩展名选项） 三、双击打开压缩包，找到 xl - Worksheets。 四、把受保护的工作表sheet1.xml 拖动复制出来。 五、用记事本打开shee
Const AUTHORS As String = DBLSPACE & vbNewLine & _
具体操作如下： 1、如果想要撤销excel工作表保护，需要知道设置的密码，然后点击打开excel表格。 2、点击excel表格中功能区内的“审阅”。 3、在审阅下的快速启动工具按钮中点击选择箭头所指的“撤销工作表保护”。 4、此时会弹出撤销工作表保护对话
"Adapted from Bob McCormick base code by" & _
首先打开你要清楚密码的工作表，点击那个有密码的工作簿，可以看到，现在这个工作簿有密码，是无法修改的，输入错误的密码也是无用 此时我们按“alt+f11”，进入到office的vba编辑模式，大家不熟悉也不要紧，后面都是很傻瓜的操作，进入之后，选
"Norman Harker and JE McGimpsey"
1、打开要保护的excel。 2、选择“审阅”选项，可以在该页面的工具栏上看到有一个“保护工作表”的工具栏。 3、点击该按钮，打开“保护工作表”对话框。在该对话框中，需要设定一个取消保护工作表时的密码，以及保护工作表后，允许进行的操作，将允许
Const HEADER As String = "AllInternalPasswords User Message"
做法如下： 1、点击菜单栏“工具”按钮，然后选择“保护” 2、选择“撤销工作表保护” 3、输入保护密码→“确认”，即可解除工作表保护 4、保存，关闭。再重新打开工作表，便能自由编辑工作表中的内容了。撤销成功。
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Excel中如何破解“撤销工作表保护密码”并获取原始密码一、保护工作表的方法1、全选定工作表右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾去掉；2、将要保护的工作表单元格选定右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾
Const REPBACK As String = DBLSPACE & "Please report failure " & _
以WPS 2019版本为例： 被加密的文档需要您先具备解密密码，如密码已遗忘，目前官方没有办法帮助找回（编辑密码/打开密码均不可找回），建议您可尝试更换大小写尝试解锁。 如您已找回密码，可参考下方方法解除： 1）开启了账号加密：开启后只有加
"to the microsoft.public.excel.programming newsgroup."
用vba编制两个宏可以实现。 第一步：编写代码如下： Sub prot()ActiveSheet.ProtectEnd SubSub unprot()ActiveSheet.UnprotectEnd Sub 第二步：点击宏，选择prot，设置快捷键 ctrl-a。如图： 第三步：点击宏，选择unprot，设置快捷键 ctrl-b。如
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
要撤销工作表保护，不同版本操作方式不一样。大概就是在工具菜单里点工作表保护，撤销保护，再输入正确的原保护密码就可以撤销了。如果你忘记了保护密码，可以在网上找破解密码的软件。
"now be free of all password protection, so make sure you:" & _
首先打开你要清楚密码的工作表，点击那个有密码的工作簿，可以看到，现在这个工作簿有密码，是无法修改的，输入错误的密码也是无用 此时我们按“alt+f11”，进入到office的vba编辑模式，大家不熟悉也不要紧，后面都是很傻瓜的操作，进入之后，选
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
一、打开一个你已经编辑好或者需要编辑的excel工作表文档。打开后在第一行开始任务栏菜单内找到“审阅”选项。（如图所示） 二、点击“审阅”选项切换到审阅的菜单界面，在这个菜单界面下找到第四个子菜单“更改”选项框，一般在审阅菜单界面的最后一
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
1、在进行编辑的excel地表的情况下中，那么就出现提示了无法进行编辑excel。 2、然后需要进行撤销的excel工作，进行点击菜单中审阅的菜单。 3、进入到了审阅的菜单之后，进入到了审阅的界面中，进行点击菜单中的撤销工作表保护。 4、弹出了撤销
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
就完成了。
扩展阅读，以下内容您可能还感兴趣。
excel表格被保护该怎么取消不知道密码？
工具：excel2011
1、先打开保护密码复的Excel工作表格，如图所示，修改后缀名称为.rar。
2、然后用压缩文件打开，如图所示，制并找压缩的路径。
3、压缩文件找到.xml后缀的文件，直接拖拽出来，重新修改。
4、找到这个.xml文件打开，在百文字里面搜索protection，把从<sheetprotection.........="0"/>的代码所有的删除掉。
5、然后再把刚才的.xml文件，如图所示，选择直接拖到压缩的工作表中两者开始替换掉。
6、再重新修改后缀为.xlsx，这个时候就可以打开Excel表格，就没有了密码保护。
7、可以看到直接进入了，需要重新密度保的，直接在审阅选项下对工作表重新进行保护即可。
EXCEL 如何对受保护的单元格去掉保护
取消部分单元格的保护状态
选中对象单元格区域，右键单击，选择“设置单元格格式”，如下图所示；
然后按照前面的操作，清除“锁定”和“隐藏”前的钩，如下图所示。
如何取消Excel文档保护？
1、在电脑上安装好excel软件，双击这zd个excel软件的图标打开它。
2、去下载一个被文件保护了的excel文档，通过刚才打开的excel软件打开这个被保护的excel文档。
3、就是双击这个被保护了的excel文档其中某个单元格，发现提示无法进一步编辑
4、点击【确定】这个按钮，回到版右上角的【文件】那个按钮，并点击这个【文件】的按钮
5、进入【文件】的主页面，选择【信息】下面的【保护工作簿】，点击里面的【取消保护】这个按钮。
6、如果没有密码就可以直接正常编辑单元格了；被别人设置了密码，还要跟权别人要密码，输入正确密码之后才能取消文档保护。
wps中excel表格密码忘记了，怎么撤销工作表保护？
示例在EXCEL2007中进行，可以不使用宏设置，直接按以下方法操作。
1、先打开EXCEL,sheet1是一个被保护的工作表，当点击单元格尝试编辑时。会提示试图更改的单元格或图表在受保护的工抄作表中！
2、点击工作表左上zd角全选，按Ctrl+C 复制工作表，然后在右侧新建 一个工作表，再次点击左上角全选，按CTRL+V粘贴，将被保护的工作表粘贴到新的表中，此时的工作表内容与原表相同，只是没有了密码保护。
3、删除原工作表，将新建的工作表名称改为原名称，并移动到原位置即可。
在excel中如何取消工作表的保护命令
在excel中取消工作表的保护命令的方法：
1.打开excel，运行视图—宏—录制新宏—输入宏名如:aa（aa是可随意输入）。
2.停止录制，这样得到一个空宏。
3.同样视图—宏—查看宏—选7a64e4b893e5b19e31333337613739aa（aa为之前新建的宏）—点击编辑按钮。
4.删除窗口中的所有字符，复制下面的内容粘贴。
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 microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
5.关闭编辑窗口。
6.视图—宏—查看宏,选AllInternalPasswords，点击执行，确定两次，等2分钟，再确定。密码撤销完毕。
