你试过在OpenOffice.org中打开它们吗?

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

这是一段时间以前，所以如果这不仅仅是我的侥幸，它也可能已经被修补。

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

使用HxD，有一个计数器跟踪您选择了多少文件。从CMG开始复制，直到计数器读取8F(十六进制为143)，同样地，当粘贴到锁定文件时-我最终在粘贴的末尾使用了两倍的“…”，这看起来有点奇怪，感觉几乎不自然，但它起作用了。

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

我希望这能有所帮助。

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

Change the extension of the .xlsm file to .zip. Open the .zip file (with WinZip or WinRar etc) and go to the xl folder. Extract the vbaProject.bin file and open it in a Hex Editor (I use HxD, its completely free and lightweight.) Search for DPB and replace with DPx and save the file. Replace the old vbaProject.bin file with this new on in the zipped file. Change the file extension back to .xlsm. Open workbook skip through the warning messages. Open up Visual Basic inside Excel. Go to Tools > VBAProject Properties > Protection Tab. Put in a new password and save the .xlsm file. Close and re open and your new password will work.

Colin Pickard is mostly correct, but don't confuse the "password to open" protection for the entire file with the VBA password protection, which is completely different from the former and is the same for Office 2003 and 2007 (for Office 2007, rename the file to .zip and look for the vbaProject.bin inside the zip). And that technically the correct way to edit the file is to use a OLE compound document viewer like CFX to open up the correct stream. Of course, if you are just replacing bytes, the plain old binary editor may work.

顺便说一句，如果你想知道这些字段的确切格式，他们现在有文档:

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

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

我尝试了上面的一些解决方案，但没有一个适合我(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