保护是 Excel 中的简单文本比较。 在你最喜欢的调试器中加载 Excel（Ollydbg 是我选择的工具），找到进行比较的代码并将其修复为始终返回 true，这应该可以让你访问宏。

是的，只要您使用的是格式化电子表格（Excel 2003 之前的默认值）。对于 Excel 2007 及更高版本，默认值为 ，这是一种相当安全的格式，此方法将不起作用。.xls.xlsx

正如 Treb 所说，这是一个简单的比较。一种方法是简单地使用十六进制编辑器交换文件中的密码条目（请参阅适用于 Windows 的十六进制编辑器）。分步示例：

1. 创建一个新的简单 excel 文件。
2. 在VBA部分，设置一个简单的密码（例如-1234）。
3. 保存文件并退出。然后检查文件大小 - 参见 Stewbob 的陷阱
4. 使用十六进制编辑器打开您刚刚创建的文件。

5. 复制以下列键开头的行：

   CMG=....
   DPB=...
   GC=...
   

6. 首先备份您不知道VBA密码的excel文件，然后使用十六进制编辑器打开它，然后从虚拟文件中粘贴上述复制的行。

7. 保存 excel 文件并退出。
8. 现在，打开您需要查看VBA代码的excel文件。VBA 代码的密码 将简单地是 1234（如我在这里展示的示例所示）。

如果您需要使用 Excel 2007 或 2010，下面还有其他一些答案可能会有所帮助，尤其是这些：1、2、3。

编辑2015 年 2 月：对于另一种看起来很有前途的方法，请查看 Đức Thanh Nguyễn 的这个新答案。

科林·皮卡德（Colin Pickard）有一个很好的答案，但有一个“小心”。在某些情况下（我还没有弄清楚原因），其中“CMG=........GC=....”文件中的条目从一个 Excel 文件到下一个 Excel 文件不同。在某些情况下，此条目为 137 字节，在其他情况下为 143 字节。137 字节的长度是奇数，如果在使用“1234”密码创建文件时发生这种情况，只需创建另一个文件，它应该跳到 143 字节长度。

如果您尝试将错误的字节数粘贴到文件中，则当您尝试使用 Excel 打开文件时，您将丢失 VBA 项目。

编辑

这对 Excel 2007/2010 文件无效。标准的 .xlsx 文件格式实际上是一个 .zip 文件，其中包含许多子文件夹，其中包含格式、布局、内容等，存储为 xml 数据。对于未受保护的 Excel 2007 文件，只需将 .xlsx 扩展名更改为 .zip，然后打开 zip 文件并浏览所有 xml 数据。这很简单。

但是，当您用密码保护 Excel 2007 文件时，整个 .zip （.xlsx） 文件实际上是使用 RSA 加密加密的。无法再将扩展名更改为 .zip 并浏览文件内容。

汤姆 - 我最初犯了一个小学生错误，因为我没有注意字节大小，而是从“CMG”设置复制并粘贴到后续条目。不过，这是两个文件之间的两种不同的文本大小，正如 Stewbob 警告的那样，我丢失了 VBA 项目。

使用 HxD，有一个计数器跟踪您选择的文件量。从 CMG 开始复制，直到计数器读取 8F（十六进制表示 143），同样，当粘贴到锁定的文件中时 - 我最终得到了两倍的“...”在糊状物的最后，不知何故看起来很奇怪，感觉几乎不自然，但它起作用了。

我不知道这是否至关重要，但我确保在重新打开 Excel 中的文件之前关闭了十六进制编辑器和 excel。然后，我必须通过菜单打开VB编辑器，进入VBProject属性并输入“新”密码以解锁代码。

我希望这会有所帮助。

ElcomSoft生产Advanced Office Password Breaker和Advanced Office Password Recovery产品，只要文档是在Office 2007或更早版本中创建的，就可以适用于这种情况。

您是否尝试过简单地在 OpenOffice.org 中打开它们？

前段时间我遇到了类似的问题，发现 Excel 和 Calc 不了解彼此的加密，因此允许直接访问几乎所有内容。

这是很久以前的事了，所以如果这不仅仅是我的侥幸，它也可能已经被修补了。

还有另一种（稍微简单一些）的解决方案，没有尺寸问题。我今天使用了这种方法（在 2003 XLS 文件上，使用 Excel 2007）并且成功了。

1. 备份 xls 文件
2. 在十六进制编辑器中打开文件并找到零件DPB=...
3. 将字符串更改为DPB=...DPx=...
4. 在 Excel 中打开 xls 文件
5. 打开 VBA 编辑器 （ALT + F11)
6. 魔术：Excel 发现无效键 （DPx） 并询问您是否要继续加载项目（基本上忽略保护）
7. 您将能够覆盖密码，因此请将其更改为您可以记住的名称
8. 保存 xls 文件*
9. 关闭并重新打开文档，发挥您的VBA魔力！

*注意：请确保您已将密码更改为新值，否则下次打开电子表格时，Excel将报告错误（意外错误），然后当您访问VBA模块列表时，您现在将看到源模块的名称，但在尝试打开表单/代码/等时收到另一个错误。若要解决此问题，请返回到 VBA 项目属性并将密码设置为新值。保存并重新打开Excel文档，您应该可以开始了！

Colin Pickard基本上是正确的，但不要将整个文件的“打开密码”保护与VBA密码保护混淆，VBA密码保护与前者完全不同，对于Office 2003和2007是相同的（对于Office 2007，将文件重命名为.zip并在zip中查找vbaProject.bin）。从技术上讲，编辑文件的正确方法是使用 OLE 复合文档查看器（如 CFX）打开正确的流。当然，如果您只是替换字节，那么普通的旧二进制编辑器可能会起作用。

顺便说一句，如果您想知道这些字段的确切格式，他们现在已经记录了它：

http://msdn.microsoft.com/en-us/library/dd926151%28v=office.12%29.aspx

值得指出的是，如果您有 Excel 2007 （xlsm） 文件，那么您可以简单地将其另存为 Excel 2003 （xls） 文件并使用其他答案中概述的方法。

如果“已知密码”文件中的块比“未知密码”文件中的现有块短，请用尾随零填充十六进制字符串以达到正确的长度。CMG="XXXX"\r\nDPB="XXXXX"\r\nGC="XXXXXX"

例如：

CMG="xxxxxx"\r\nDPB="xxxxxxxx"\r\nGC="xxxxxxxxxx"

在未知密码文件中，应设置为

CMG="XXXX00"\r\nDPB="XXXXX000"\r\nGC="XXXXXX0000"以保留文件长度。

我也曾与.XLA（97/2003 格式）文件。

我的工具 VbaDiff 直接从文件中读取 VBA，因此您可以使用它从大多数 Office 文档中恢复受保护的 VBA 代码，而无需求助于十六进制编辑器。

如果文件是有效的 zip 文件（前几个字节以 -- 等格式使用），则解压缩文件并查找子文件。这是一个CFB文件，就像文件一样。按照 XLS 格式（应用于子文件）的说明进行操作，然后压缩内容。50 4B.xlsmxl/vbaProject.bin.xls

对于 XLS 格式，您可以按照本文中的其他一些方法进行操作。我个人更喜欢搜索块并替换文本DPB=

CMG="..."
DPB="..."
GC="..."

带有空格。这避免了 CFB 容器尺寸问题。

对于Excel 2007及更高版本，您需要将文件扩展名更改为.zip 在存档中有一个子文件夹 xl，您将在其中找到 vbaProject.bin。 按照上述步骤使用 vbaProject.bin 操作，然后将其保存回存档中。 修改回您的扩展名，瞧！（意思是按照上述步骤操作）

您可以尝试这种不需要十六进制编辑的直接方法。它适用于任何文件（*.xls，*.xlsm，*.xlam...）。VBA

经过测试并适用于：

Excel 2007 Excel 2010
Excel 2013 - 32 位版本
Excel 2016 - 32 位版本

寻找 64 位版本？查看此答案

运作方式

我会尽力解释它是如何工作的 - 请原谅我的英语。

1. VBE 将调用系统函数来创建密码对话框。
2. 如果用户输入正确的密码并单击“确定”，则此函数返回 1。如果用户输入错误的密码或单击“取消”，则此函数返回 0。
3. 对话框关闭后，VBE 会检查系统函数的返回值
4. 如果此值为 1，则 VBE 将“认为”密码正确，因此将打开锁定的 VBA 项目。
5. 下面的代码将用于显示密码对话框的原始函数的内存与用户定义的函数交换，该函数在被调用时将始终返回 1。

使用代码

请先备份您的文件！

1. 打开包含锁定的 VBA 项目的文件

2. 创建一个新的 xlsm 文件并将此代码存储在 Module1 中

   code credited to Siwtom (nick name), a Vietnamese developer

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
           (Destination As Long, Source As Long, ByVal Length As Long)
   
   Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _
           ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
   
   Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
   
   Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _
           ByVal lpProcName As String) As Long
   
   Private Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, _
           ByVal pTemplateName As Long, ByVal hWndParent As Long, _
           ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
   
   Dim HookBytes(0 To 5) As Byte
   Dim OriginBytes(0 To 5) As Byte
   Dim pFunc As Long
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As Long) As Long
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 5) As Byte
       Dim p As Long
       Dim OriginProtect As Long
   
       Hook = False
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
   
       If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
           If TmpBytes(0) <> &H68 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               HookBytes(0) = &H68
               MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
               HookBytes(5) = &HC3
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As Long, _
           ByVal pTemplateName As Long, ByVal hWndParent As Long, _
           ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                              hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function
   

3. 将这段代码粘贴到 Module1 中的上述代码下并运行它

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub
   

4. 回到您的VBA项目并享受。

我以 Đức Thanh Nguyễn 的精彩答案为基础，允许此方法与 64 位版本的 Excel 一起使用。我在 64 位 Windows 7 上运行 Excel 2010 64 位。

1. 打开包含锁定的 VBA 项目的文件。

2. 创建一个新的 xlsm 文件并将此代码存储在 Module1 中

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
   
   Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
   ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
   
   Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
   
   Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
   ByVal lpProcName As String) As LongPtr
   
   Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
   Dim HookBytes(0 To 5) As Byte
   Dim OriginBytes(0 To 5) As Byte
   Dim pFunc As LongPtr
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As LongPtr) As LongPtr
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 5) As Byte
       Dim p As LongPtr
       Dim OriginProtect As LongPtr
   
       Hook = False
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
   
       If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
           If TmpBytes(0) <> &H68 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               HookBytes(0) = &H68
               MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
               HookBytes(5) = &HC3
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                      hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function
   

3. 将此代码粘贴到 Module2 中并运行它

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub
   

免責聲明这对我有用，我在这里记录了它，希望它能帮助到某人。我还没有完全测试过它。在继续此选项之前，请务必保存所有打开的文件。

对于 or 文件类型，您需要以稍微不同的方式执行此操作。.xlsm.dotm

1. 将文件的扩展名更改为 。.xlsm.zip
2. 打开 .zip 文件（使用 WinZip 或 WinRar 等）并转到 xl 文件夹。
3. 提取文件并在十六进制编辑器中打开它（我使用 HxD，它完全免费且轻量级。vbaProject.bin
4. 搜索并替换为并保存文件。DPBDPx
5. 在压缩文件中将旧文件替换为此新文件。vbaProject.bin
6. 将文件扩展名改回 。.xlsm
7. 打开工作簿，跳过警告消息。
8. 在 Excel 中打开 Visual Basic。
9. 转到“工具”>“VBAProject 属性”>“保护”选项卡。
10. 输入新密码并保存文件。.xlsm
11. 关闭并重新打开，您的新密码将起作用。

我尝试了上面的一些解决方案，但没有一个适合我（excel 2007 xlsm文件）。然后我找到了另一种解决方案，甚至可以检索密码，而不仅仅是破解密码。

将此代码插入模块，运行它并给它一些时间。它将通过暴力破解恢复您的密码。

Sub PasswordBreaker()

'Breaks worksheet password protection.

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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

您的 Excel 文件的扩展名更改为 XML。 并在记事本中打开它。 密码文本在 XML 文件中查找。

你看如下行;

Sheets("Sheet1").Unprotect Password:="blabla"

（对不起，我的英语不好）

对于 Windows 2016 机器上的 Excel 64 位，我使用了十六进制编辑器来更改受保护的 xla 的密码（尚未针对任何其他扩展进行测试）。提示：在执行此操作之前，请先创建备份。

我采取的步骤：

1. 在十六进制编辑器中打开 vba（例如 XVI）
2. 在此 DPB 上搜索
3. 将 DPB 更改为其他内容，例如 DPX
4. 省省吧！
5. 重新打开.xla，将出现一条错误消息，请继续。
6. 现在，您可以通过打开属性并转到密码选项卡来更改 .xla 的密码。

我希望这对你们中的一些人有所帮助！

可以轻松删除 Access、Excel、Powerpoint 或 Word 文档（带有扩展名的版本）上的 VBA 项目密码。2007, 2010, 2013 or 2016.ACCDB .XLSM .XLTM .DOCM .DOTM .POTM .PPSM

只需将文件扩展名更改为 ，解压缩文件，并使用任何基本的十六进制编辑器（如 XVI32）来“破坏”现有密码，这会“混淆”Office，因此下次打开文件时会提示输入新密码。.ZIP

步骤摘要：

• 重命名文件，使其具有扩展名。.ZIP
• 打开并转到该文件夹。ZIPXL
• 提取并使用十六进制编辑器打开它vbaProject.bin
• “搜索和替换”改为“全部替换”，改为 .DPBDPX
• 保存更改，将文件放回 zip 中，将其恢复为正常扩展名，然后像往常一样打开文件。.bin
• Alt+F11 进入 VB 编辑器，在 Project Explorer 中单击鼠标右键选择 。VBA Project Properties
• 在选项卡上，设置新密码。Protection
• 单击 ，关闭文件，重新打开它，按 Alt+F11。OK
• 输入您设置的新密码。

此时，如果您愿意，您可以完全删除密码。

完整的说明以及我制作的“回到什么时候”的分步视频在 YouTube 上 这里.

令人震惊的是，这种解决方法已经存在多年，而Microsoft尚未解决该问题。

---

这个故事的寓意是什么？

Microsoft Office VBA 项目密码不能用于保护任何敏感信息。如果安全性很重要，请使用第三方加密软件。

如果您在其中工作，您可以尝试 VBAMacroExtractor。从中提取VBA脚本后，我找到了明文密码。Java.xlsm

编辑：这是已接受答案的更新版本，应该适用于更多办公版本。这很难，但让我们把这个答案放在首位！

轮到我了，这是建立在 kaybee99 的出色答案之上的，该答案建立在 Đức Thanh Nguyễn 的精彩答案之上，允许此方法适用于 32/64 位版本的 Office。

关于更改内容的概述，我们避免了限制为 32 位地址的 push/ret，并将其替换为 mov/jmp reg。

运作方式

1. 打开包含锁定的 VBA 项目的文件。

2. 创建一个与上述类型相同的新文件，并将此代码存储在 Module1 中

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
   
   Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
   ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
   
   Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
   
   Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
   ByVal lpProcName As String) As LongPtr
   
   Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
   Dim HookBytes(0 To 11) As Byte
   Dim OriginBytes(0 To 11) As Byte
   Dim pFunc As LongPtr
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As LongPtr) As LongPtr
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 12
   End Sub
   
   Public Function Hook() As Boolean
       Dim TmpBytes(0 To 11) As Byte
       Dim p As LongPtr, osi As Byte
       Dim OriginProtect As LongPtr
   
       Hook = False
   
       #If Win64 Then
           osi = 1
       #Else
           osi = 0
       #End If
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
       If VirtualProtect(ByVal pFunc, 12, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, osi+1
           If TmpBytes(osi) <> &HB8 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 12
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               If osi Then HookBytes(0) = &H48
               HookBytes(osi) = &HB8
               osi = osi + 1
               MoveMemory ByVal VarPtr(HookBytes(osi)), ByVal VarPtr(p), 4 * osi
               HookBytes(osi + 4 * osi) = &HFF
               HookBytes(osi + 4 * osi + 1) = &HE0
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 12
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                      hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function
   

3. 将此代码粘贴到 Module2 中并运行它

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub
   

接受的答案在 Windows 2019 上的 Excel 10 中不起作用。了解查看锁定的宏需要采取的额外步骤。我正在总结这些步骤。

1. 在 excel 文件名的末尾添加一个 .zip 并按 Enter 键

2. 将文件更改为ZIP文件后，双击将其打开

3. 在里面，你会看到一个名为xl的文件夹，如下所示

4. 在 xl 中，您会找到一个名为 vbaProject.bin 的文件，将其复制/粘贴到桌面上

5. 转到在线十六进制编辑器 HexEd.it

6. 搜索以下文本 DPB=... 并将它们更改为 DPx=...

7. 保存文件并关闭 HexEd.it

8. 将更新后的文件从桌面复制/粘贴到ZIP文件中（您需要覆盖它）

9. 从文件名末尾删除 .zip 扩展名，然后再次添加 Excel 扩展名。

10. 在 excel 中打开文件 - 您可能会收到一些错误通知，只需单击它们即可。

==== 在已接受的答案之上的额外步骤=====

11. 打开 Visual Basic 窗口（如果我没记错的话，通常是 ALT+F11）并打开 VBAProject 属性（“工具”菜单）。
12. 单击“保护”选项卡，然后将密码更改（在此阶段不要删除）为简短且易于记忆的密码（我们将 在下一步中删除）。
13. 保存工作簿，然后关闭并重新打开。
14. 再次打开 Visual Basic 窗口，然后输入您刚刚输入的密码。重做上一步，但这次您可以删除（删除） 密码。
15. 保存工作簿，您现在已经删除了密码。

从以下网站 https://confluence.jaytaala.com/display/TKB/Remove+Excel+VBA+password 采取额外步骤

事实是，大多数启用宏的 Office 文档的代码文件未加密，密码仅阻止使用 Office 程序打开项目。 这意味着，正如其他答案所建议的那样，您通常可以使用 Office 替代方法来访问和编辑文件。

但是，如果您只需要访问代码，则可以使用 oledump.py 之类的工具来提取宏代码。这对于恶意软件分析以及从文件中获取大部分代码非常有用，这样您就不必在忘记密码时从头开始。

此外，许多 excel 文件在打开文件时会动态设置密码。这意味着，如果您可以阅读代码，您通常可以在明文中找到密码或对其进行反混淆。

oledump.py例子：

列出 Office 文档中的所有“流”（嵌入的二进制文件或代码文件）：

python oledump.py -v yourExcelFile.xlsm

输出：

A: xl/vbaProject.bin
 A1:      2000 'PROJECT'
 A2:      1500 'PROJECTwm'
 A3: M    1224 'VBA/Module1'
 A4: M   18694 'VBA/Module2'
 A5: M   11877 'VBA/Module3'
...

旁边带有宏的流是宏，这是未加密的 VBA 代码M

提取流

python oledump.py -s A3 -v yourExcelFile.xlsm > Module1.vba

这会将流中包含的代码输出到 。A3Module1.vba

我通常将其与循环结合起来，将所有文件提取到一个文件夹中。此快速 PowerShell 脚本将提取大多数文件中的所有流：

New-Item -ItemType Directory "Output"

# just hardcode the highest stream outputted by oledump.py -v
$max = 5 
for ($i = 1; $i -le $max; $i++) {
    python oledump.py -s "A$i" -v yourExcelFile.xlsm > ".\Output\A$i"
}

请注意，这只会提取人类可读的文件。

删除VBA项目密码的一种简单方法是执行以下操作：

1. 将xlsm个文件 转换为 zip
2. 打开里面的 VBAProject.bin 文件（我更喜欢使用 Notepad++ （https://notepad-plus-plus.org/downloads/)
3. 搜索 DPB 字段
4. 将其替换为 DPx
5. 保存文件
6. 将 zip 文件转换为 xlsm
7. 打开 Excel 文件
8. 如果收到消息框，请单击“是”
9. 为 VBA 项目属性设置新密码
10. 关闭并再次打开文件
11. 键入新密码以取消保护