Excel遗忘密码后如何撤销工作表保护密码
Excel遗忘密码后如何撤销工作表保护密码 1、打开您需要撤销保护密码的Excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮； 5、删除窗口中的所有字符(只有几个),替换为以下内容；
Public Sub 工作表保护密码() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:eric" Const HEADER As String = "工作表保护密码" Const VERSION As String = DBLSPACE & "版本 Version 1.1.1" Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE & " eric" Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除。" & DBLSPACE & "请记得重新设置密码" _ & DBLSPACE & "注意：此方法仅用于遗忘密码使用。" Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" Const MSGTAKETIME As String = "请耐心等候!" & DBLSPACE & "按确定开始回复" Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并修改清除" Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并解除" Const MSGONLYONE As String = "确保为唯一的?" 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 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 & ZHENGLI, vbInformation, HEADER End Sub 6、关闭编辑窗口； 7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次，等候一两分钟,会出现以下对话框：
这是Excel密码对应的原始密码(此密码和之前设置的密码均能打开此文档。
如何取消工作表保护
如何取消工作表保护在Excel中，我们经常会对工作表进行保护，以防止他人对表格内容进行意外修改。
但是有时候，我们也需要取消工作表的保护，以便对表格内容进行调整和编辑。
接下来，我将向大家介绍如何取消工作表的保护。
首先，打开包含受保护工作表的Excel文档。
然后，点击工作表标签，选择需要取消保护的工作表。
接着，点击“审阅”选项卡，找到“工作表保护”组。
在该组中，点击“保护工作表”按钮，系统会弹出一个对话框要求输入密码。
如果工作表没有设置密码保护，直接点击“确定”即可取消保护。
如果工作表设置了密码保护，需要输入正确的密码才能取消保护。
输入密码后，点击“确定”，系统会自动取消工作表的保护。
另外，有时候我们也可以通过VBA宏来取消工作表的保护。
首先，按下“Alt + F11”组合键，打开VBA编辑器。
在编辑器中，找到需要取消保护的工作表，然后输入以下代码：```vba。
Sub UnprotectSheet()。
Sheets("Sheet1").Unprotect Password:="123456"End Sub。
```。
这段代码的含义是取消“Sheet1”工作表的保护，密码为“123456”。
在实际应用中，需要根据实际情况修改工作表名称和密码。
然后，按下“F5”键执行代码，即可取消工作表的保护。
除此之外，我们还可以通过移动或复制工作表的方式来取消保护。
首先，右键点击工作表标签，选择“移动或复制”。
在弹出的对话框中，将工作表复制到一个新的位置，系统会自动取消工作表的保护。
最后，需要提醒大家的是，在取消工作表保护之前，一定要确保自己有权限对表格内容进行修改。
否则取消保护后，可能会导致意外的数据损坏或丢失。
总的来说，取消工作表的保护并不复杂，只需要按照上述步骤进行操作即可。
希望以上内容能够帮助到大家，谢谢阅读！。
EXCEL 工作表忘记保护密码快速破解方法
1.按常规，输入可能是，但不确定的密码后，弹出密码错误的提示，无法对文件进行修改，如
果从头到尾重新制作文件，太消耗脑力了，这样会使无辜少年头变成白发嗡的；
2.如果这份资料是自己制作的，再来一次又何妨？如果是别人的资料，你就真的要吓忙了；这里告诉你一个绝对可靠而简单的办法，先点确定关掉提示吧！
3.下载EXCEL 密码清楚工具；
打开
解压
4.解压并打开下载的破解工具；
5.点击这个尾缀为exe 的美女图标（破解工具），进行安装；
6.如果你已打开同类
型的文件，会弹出
此提示框，按提示
关闭工作表，再
点下一步继续安
装软件；
7.注意，你不同意此协议就无法点下一步噢！
8.点击所有出现的下
一步按钮，直到出
现安装按钮，再点
一下安装；
9.完成安装，再次打开忘记保护密码的文件（实际是所有此类文件）后，此处多了一个解密
工具箱；
8.点击所有出现的下
一步按钮，直到出
现安装按钮，再点
一下安装；
1
2
10.点工具箱右边三角形，选择工作表密码；
11.点确定按钮；
EXCEL 工作表忘记保护密码快速破解方法
12.这时，激动人心的结果出来了，鼠标一点，工作表里面的图片可以重复编辑，任何单元格都
可以重新编辑了，真道高一尺，魔高一丈啊；
编后语：
1.衷心感谢，无私上传此工具的大神，也感谢免费下载的网站；
2.如果此大神再努力一把，我们可以掌控美日的通讯（指挥）系统，保卫海疆，收复失土就
可不费吹灰之力也，我们也不必每逢天下大事，都要去感概一下成吉思汗，只识弯弓射大雕了！。
wps表格忘记密码找回的三种方法
如果您忘记了WPS 表格的密码，可以尝试以下三种方法找回密码：
方法一：使用备份文件
如果之前设置密码的时候有备份文件，可以通过备份文件来找回密码。
步骤如下：
1. 打开备份文件。
2. 在弹出的密码框中选择“找回密码”。
3. 输入备份文件中设置的密码（如果有设置）。
4. 完成后，会弹出新的窗口，提示密码已找回。
方法二：使用密码重置工具
WPS 表格提供了一个密码重置工具，可以帮助您找回忘记的密码。
步骤如下：
1. 打开WPS 表格，点击“文件”菜单，选择“文档加密”。
2. 在弹出的窗口中，选择“密码加密”选项卡。
3. 在弹出的密码框中，输入当前密码，点击“确定”。
4. 在弹出的窗口中，选择“忘记密码”，然后按照提示进行操作
即可找回密码。
方法三：联系客服支持
如果以上两种方法都无法找回密码，可以联系WPS 客服支持寻求帮助。
他们会要求您提供一些证明文件，例如购买证明、身份证明等，以便核实您的身份和找回密码。
wps excel解密方法
WPS Excel 解密方法随着信息化技术的不断发展，电子表格已经成为日常办公中不可或缺的工具之一。
WPS Office 作为一款常用的办公软件，其中的 WPS Excel 具有诸多强大的功能，如数据计算、图表制作等。
然而，在使用WPS Excel 的过程中，有时候我们会遇到一些需要进行解密操作的情况，例如忘记了文档的密码或者需要恢复被加密的文档。
本文将介绍一些常用的 WPS Excel 解密方法，希望能够帮助到有需要的读者。
1. 使用密码提示功能：在打开被加密的文档时，WPS Excel 会提示输入密码。
如果你曾经为该文档设置了密码，但是现在忘记了密码，可以尝试输入错误密码，然后点击“密码提示”。
WPS Excel 会根据你设置的密码提示信息来帮助你找回密码，这是一种比较简单的解密方法。
2. 使用上线解密工具：如果密码提示无法帮助你找回密码，还可以尝试使用一些上线的解密工具。
这些工具通常能够通过暴力破解等方式来尝试解密文档，但需要注意的是，使用上线解密工具存在一定的安全风险，因为你需要将被加密的文档上传到第三方全球信息站。
建议在使用之前仔细斟酌。
3. 密码破解软件：除了上线解密工具，还有一些专门用于破解密码的软件，如 Passper for Excel、iSunshare Excel Password Remover等。
这些软件通常具有高度的专业性和可靠性，能够帮助你快速破解文档密码。
但同样需要注意的是，选择正规、可信的软件，以免因下载恶意软件而造成计算机安全问题。
4. 重置密码：如果以上方法都无法帮助你找回密码，最后的方法是通过重置密码来解密文档。
在 WPS Excel 中，你可以选择“文件”-“信息”-“保护工作簿”-“加密密码”，然后输入新的密码进行重置。
这种方法虽然能够解决忘记密码的问题，但需要注意的是，重置密码后原来的文档将变得无法打开。
5. 获取冠方帮助：如果以上方法均无法解决问题，不妨尝试通联 WPS Office 冠方掌柜寻求帮助。
excel中撤销工作表保护密码并获取原始密码
用宏代码破解密码：以为例说明，（2003也是一样的，只是菜单命令的位置不同）第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出；再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出；第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126 (i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)=FalseThen MsgBox"Oneusablepasswordis"&Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)(1).SelectRange("a1").FormulaR1C1=Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。
忘记excel密码的解决方法
忘记excel密码的解决方法
忘记Excel密码是一个常见的问题，但幸运的是有几种方法可以解决这个问题。
首先，你可以尝试使用一些基本的密码，比如你常用的密码或者与你相关的日期或数字组合。
如果你仍然无法记起密码，以下是一些更具体的解决方法：
1. 使用密码提示，在输入密码时，Excel通常会提示你设置一个密码提示。
这个提示可能会帮助你回忆起密码。
2. 使用密码恢复工具，有一些第三方工具可以帮助你恢复忘记的Excel密码。
这些工具可以通过暴力破解或其他方法来尝试解锁文件。
但请注意，使用第三方工具可能存在安全风险，因此请确保从可信赖的来源获取工具并且在使用后立即删除工具。
3. 重置密码，如果你无法通过上述方法解决问题，你可以考虑重置密码。
你可以尝试将文件另存为另一种格式或者将文件内容复制到新文档中，这样可以去除密码保护。
4. 使用Excel密码恢复服务，有一些在线服务可以帮助你恢复Excel密码。
你可以上传受保护的文件，并支付费用以获取密码。
5. 联系Microsoft支持，作为最后的手段，你可以尝试联系Microsoft支持团队寻求帮助。
他们可能有一些高级的方法来帮助
你解决问题。
总的来说，忘记Excel密码是一个令人沮丧的问题，但通常情
况下是可以解决的。
希望上述方法中的某一个能够帮助你解决问题。
excel强制解除保护工作表
excel强制解除保护工作表
要强制解除Excel工作表的保护，你可以按照以下步骤进行操作：
1. 首先，打开受保护的Excel工作表。
2. 在菜单栏中选择“文件”。
3. 点击“另存为”，选择“工作簿”并保存到本地。
4. 现在关闭原始的受保护工作表，打开新保存的工作簿文件。
5. 在新的工作簿中，再次点击“文件”，选择“信息”。
6. 点击“管理工作表保护”，选择“解除工作表保护”。
7. 如果工作表受密码保护，系统会提示你输入密码。
8. 输入密码后，点击“确定”即可解除工作表保护。
另外，如果你无法解除工作表保护，可能是因为你没有权限或者受到了文档保护。
在这种情况下，你可能需要联系文档的创建者或管理员，以获取必要的权限或密码来解除保护。
需要注意的是，强制解除工作表保护可能违反了文档的使用规定，建议在进行操作前先确认是否有相关权限或授权。
撤销excel工作簿保护
撤销excel工作簿保护在使用Excel处理数据时，有时我们需要给工作簿设置保护，以确保数据的安全性和完整性。
但是，在某些情况下，我们可能需要撤销这种保护，以便进行必要的编辑或修改。
本文将介绍如何撤销Excel工作簿的保护。
一、了解Excel工作簿保护的相关知识Excel工作簿保护分为两种：工作表保护和工作簿保护。
工作表保护是指对工作簿中的单个工作表进行保护，包括保护单元格、行、列等内容。
工作簿保护是指对整个工作簿进行保护，包括禁止修改、删除、插入和重命名工作簿中的工作表等。
撤销工作簿保护需要知道密码。
因此，在撤销工作簿保护之前，我们需要确保我们知道正确的密码，否则撤销保护将是不可能的。
二、撤销Excel工作簿保护的步骤以下是撤销Excel工作簿保护的详细步骤：第一步：打开需要撤销保护的Excel文件，在最上方的菜单中选择“文件”选项。
第二步：进入“信息”界面，找到“保护工作簿”选项，单击“保护工作簿”选项下的“加密密码”。
第三步：在弹出的“加密密码”对话框中，输入正确的密码，单击“确定”按钮。
第四步：单击“保护工作簿”选项下的“撤销保护工作簿”。
第五步：在弹出的“撤销工作簿保护”对话框中，输入正确的密码，单击“确定”按钮。
第六步：Excel会提示您确认是否要撤销工作簿保护，单击“是”。
第七步：成功撤销工作簿保护后，Excel会显示“工作簿已撤销保护”提示信息。
以上就是撤销Excel工作簿保护的详细步骤。
需要注意的是，如果您不知道保护工作簿的密码，就无法撤销工作簿保护。
因此，建议您在设置密码时，一定要选择易于记忆但又足够安全的密码。
三、解决撤销Excel工作簿保护失败的问题在撤销Excel工作簿保护时，有时会出现撤销失败的情况。
这时，我们可以采取以下措施：1. 检查密码输入是否正确：在撤销工作簿保护时，需要输入正确的密码，否则撤销将失败。
请检查您输入的密码是否正确拼写和大小写本身。
2. 检查选项中的错误：在某些情况下，您可能会在撤销过程中选择了错误的选项，例如，选择了“撤销工作表保护”选项而不是“撤销工作簿保护”选项。
excel2019工作表如何撤销保护
excel2019工作表如何撤销保护篇一：如何撤销Excel工作表保护EXCEL工作表编辑资料，设置了工作表保护后，不能对表格进行操作。
如果没有密码，很简单:工具-选项—工作表保护——撤消工作表保护就可以了。
如果忘记密码或者不知道密码，执行如下操作：1、打开文件2、工具---宏----录制新宏---输入名字如:a3、停止录制(这样得到一个空宏)4、工具---宏----宏,选a,点编辑按钮5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来)Option ExplicitPublic 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-2019 (Version 1.1)' Modified 2019-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 2019-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 " & _。
Excel—“撤销工作表保护密码”的破解并获取原始密码
Excel“撤销工作表保护密码”的破解并获取原始密码在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；从横线下开始复制------------------------------------------------------------------------------------------Option ExplicitPublic 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinT ag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinT ag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinT ag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub-----------------------------------------------------------------------------------------复制到横线以上6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。