Excel中2020版进行密码解密软件的操作方法

excel文件忘记密码后的解密方法excel文件密码的设置有2种，一种是写保护，另外一种是打开保护。

对应不同的保护措施，应该用不同的解密方法。

一：这是写保护的破解：方法:1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制(这样得到一个空宏)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 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 & VERSIONConst 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 Boolean Application.ScreenUpdating = False With ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn 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 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 WinTag 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 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 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, HEADER End Sub6. 然后执行便可获得密码附件：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 Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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 ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("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) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub今天解决的大问题！！解释一下：当Excel工作表采用密码保护时，就会生成一个16位(双字节) 长hash值。

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设置密码如何破解
EXCEL表格是各大职业比较热门的办公软件，但我们通常会看到被密码保护的表格，这给我们修改EXCEL表格带来了很大的困扰。

如何快速破解excel密码，下面让店铺为你带来给excel设置密码如何破解的解决方法。

excel设置密码如何破解步骤：
使用Office Password Toolbox
Excel密码清除工具使用教程：
①先暂定系统中的杀毒软件，等将Excel密码清除掉完毕后再重新开启杀毒。

(此类的工具杀毒软件都会误认为是木马或病毒，这个没毒，请放心使用。

)
②双击运行该软件;
③单击“文件”按钮，在弹出的菜单中选择“打开文件…”，然后找到你需要清除掉的密码的Excel表格的存放位置，打开;
④此时，Excel文件就已经导入了此软件，大家还可以看到可以“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等，全部可以移除。

点击界面上的“移除密码”;
⑤点击“移除密码”以后会提示程序必须要链接网络才可以运行，(确定你的计算机是否已经链接好了网络，然后单击“确定”按钮);
⑥这时后会提示“状态：正在链接到Rixler Server ”，只需等待几秒钟完成即可。

关于excel设置密码如何破解的相关文章推荐：。

如何解锁excel的方法
在Excel中经常需要用到密码保护进行保护拥有重要数据的文档。

但也会有时候会忘记Excel的密码，该怎么办呢，其实这个问题很容易解决。

下面是由店铺分享的如何解锁excel的方法，希望对你有用。

如何解锁excel的方法：
解锁步骤1：搜索一下图示的关键字，选择第一条，或者百度5秒WORD-EXCEL密码破解，应该也有的，不过担心有的网站是骗人的，有病毒。

解锁步骤2：点击下方的连接，下载软件，软件不是很大，直接下载下来就可以了，下载下来是一个压缩包，解压该压缩包。

解锁步骤3：打开压缩包解压出来的文件夹，第二个文件就是我们的密码破解工具，双击打开工具。

解锁步骤4：浏览，找到我们要破解的文件，点击确定，破解就开始啦。

解锁步骤5：点击移除密码。

解锁步骤6：弹出对话框，点击确定，当然，电脑是要能联网的，相信你能看到这篇经验，电脑应该也是能联网的。

解锁步骤7：解密时间要看密码复杂程度，不过应该没有太变态的密码。

解锁步骤8：当当当当，成功破解密码，并且生成了一个新的没有密码的文件。

excel密码忘记了怎么解锁导读：本文将介绍如何解锁忘记密码的Excel文件。

当您忘记了您的Excel密码时，可以使用两种方法进行解锁。

第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码进行解锁。

下面将详细介绍这两种方法的步骤。

对于Excel密码的忘记，有两种可行的解锁方法。

第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码。

下面将详细介绍这两种方法的步骤。

方法一：使用第三方密码恢复工具第一步：下载并安装密码恢复工具访问一个可信的软件下载网站，搜索并下载一个Excel密码恢复工具。

确保选择一个经过验证的工具，并确保从安全可信的来源下载。

第二步：打开密码恢复工具双击下载的文件，按照安装向导的指示进行安装，并打开密码恢复工具。

第三步：导入Excel文件在密码恢复工具中选择“导入”选项，然后选择您忘记密码的Excel文件，并点击“导入”。

第四步：选择恢复模式工具会提供不同的恢复模式，如暴力恢复、字典恢复等。

选择一个适合的恢复模式，并设置相应的选项。

第五步：开始密码恢复点击“开始”按钮，密码恢复工具将开始尝试恢复您的Excel密码。

这个过程可能需要一些时间，取决于密码的复杂性。

第六步：获得密码当密码恢复工具找到密码时，它会在屏幕上显示出来。

将找到的密码记下来，然后使用它来解锁您的Excel文件。

方法二：使用VBA宏代码第一步：打开Excel文件双击您忘记密码的Excel文件，打开它。

第二步：按下快捷键同时按下“ALT”和“F11”键，打开VBA编辑器。

第三步：插入新的模块在VBA编辑器中，选择“插入”菜单，并选择“模块”。

第四步：复制VBA代码从可信来源复制以下VBA宏代码，并在新建的模块中粘贴。

Sub PasswordBreaker()'Breaks worksheet password protection.On Error Resume NextFor Each ws In Worksheetsws.Unprotect Password:=""Next wsEnd Sub第五步：运行宏代码按下“F5”或点击“运行”按钮运行宏代码。

解除excel密码的方法摘要：1.解除Excel密码的必要性2.解除Excel密码的方法2.1 利用在线工具2.2 使用第三方软件2.3 手动破解密码3.注意事项4.总结正文：解除Excel密码的方法随着工作效率的提高，越来越多的人开始使用Excel来处理和存储数据。

然而，有时候我们会因为忘记密码而导致无法正常访问文件，这给工作带来了很大的不便。

本文将为大家介绍解除Excel密码的方法，帮助你轻松找回丢失的访问权限。

1.解除Excel密码的必要性Excel文件密码的作用是保护文件内容，防止未经授权的人查看或编辑。

然而，在实际使用过程中，密码可能会成为进入文件的障碍。

尤其是当我们忘记设置密码时，迫切需要找到一种方法来解除密码，以确保正常使用文件。

2.解除Excel密码的方法2.1 利用在线工具目前市面上有很多在线工具声称可以解除Excel密码，但效果因工具而异。

一些在线工具需要你上传Excel文件，然后点击“解密”按钮即可。

需要注意的是，使用在线工具存在一定风险，因为你的文件可能会被泄露给第三方。

因此，在选择在线工具时，请务必谨慎。

2.2 使用第三方软件市面上有很多专业的Excel密码破解软件，如AxpertSoft Excel Password Unlocker、Kernel Excel Password Recovery等。

这些软件通常具有较高的解密成功率，且操作简单。

只需下载并安装软件，然后导入Excel文件，即可尝试破解密码。

需要注意的是，使用第三方软件也存在一定风险，请确保选择信誉良好的软件。

2.3 手动破解密码对于仅包含简单公式和数据的Excel文件，可以尝试手动破解密码。

方法是不断猜测密码，直到找到正确的密码。

当然，这种方法适用于密码长度较短、复杂度较低的情况。

如果Excel文件包含复杂公式或敏感数据，不建议使用此方法，以免泄露重要信息。

3.注意事项在进行Excel密码解除时，请注意以下事项：- 确保使用可靠的工具或软件，避免泄露个人信息；- 谨慎选择在线服务，以免遭受网络诈骗；- 尽量不要使用过于复杂的密码，以免忘记；- 对于重要文件，可考虑采用其他加密方式，提高安全性。

excel文件忘记密码后的解密方法excel文件密码的设置有2种,一种是写保护，另外一种是打开保护。

对应不同的保护措施，应该用不同的解密方法。

一：这是写保护的破解：方法:1\打开文件2\工具--—宏-——-录制新宏-——输入名字如：aa3\停止录制(这样得到一个空宏)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 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。

如何解锁excel密码的教程在Excel中录入过多的重要数据是大家的习惯，为了不让Execl数据被他人随意篡改都需要进行密码保护，但有时候却忘记了密码，这个时候就需要解锁密码了。

下面是店铺带来的关于如何解锁excel密码的教程，欢迎阅读!如何解锁excel密码的教程：解锁密码步骤1：如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开(关掉所有程序，为了速度)：解锁密码步骤2：新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoT o line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub解锁密码步骤3：然后在此界面直接按F5运行此宏，选择文件，等啊等(看密码长度了)。

Excel中工作表保护密码的撤销和破解方法
在excel中如果需要将单元格或者工作表锁定，设置为只读，就需要单击工具——保护——保护工作表——设置密码来完成。

保护工作表后，编辑或删除受保护的单元格，就会弹出“正在试图更改被保护的只读单元格或图表。

要想修改受保护单元格或图表的内容，请先使用“工具”菜单“保护”子菜单的“撤消工作表保护”命令。

这时可能需要输入密码。

”的窗口。

有时候时间久了，自己设置的密码忘了该怎么办呢?
如果是对VBA代码编写很熟悉，可以使用编写宏代码来移除工作表保护密码。

但如果对VBA代码不会的朋友，其实，通过密码破解软件也是不错的选择。

下面小编就针对软件破解工作表保护密码，做一些介绍。

在网上有许多专门为破解Excel各种密码而制作的软件，但小编推荐Advanced Office Password Recovery这款软件来破解密码。

它们的使用方法简单且破解速度极快。

下载安装完成后，运行软件，直接点击工具栏“打开文件”按钮，打开要破解的Excel文件，马上就可以看到解出相应的密码了。

这个软件的优点是可以直接知道该工作表的原始密码，而有些软件只能破解，但不会显示出工作表的原始密码。

Excel—“撤销工作表保护密码”的破解并获取原始密码Excel—“撤销工作表保护密码”的破解并获取原始密码.txt19“明”可理解成两个月亮坐在天空，相互关怀，相互照亮，缺一不可，那源源不断的光芒是连接彼此的纽带和桥梁！人间的长旅充满了多少凄冷孤苦，没有朋友的人是生活的黑暗中的人，没有朋友的人是真正的孤儿。

Excel—“撤销工作表保护密码”的破解并获取原始密码IT技术1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"作者:XXXXXXX"Const HEADER As String = "工作表保护密码破解"Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"Const REPBACK As String = DBLSPACE & ""Const ZHENGLI As String = DBLSPACE & " XXXXXXX"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 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 Integer Dim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenElseOn 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 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 WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit 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 66 For 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 & ZHENGLI, vbInformation, HEADEREnd Sub6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一到两分钟,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。