Excel2007工作表保护密码破解方法
1、打开受保护的Excel工作表（此步骤打开其他Excel文件也行，因为这里是要启用宏）：在打开的Excel文件菜单栏空白处，右键单击鼠标，选择“自定义快速访问工具栏···”，打开Excel选项窗口，如上图所示。
2、在打开的Excel选项窗口中，选择“常用”一栏，再在右边框中勾中“在功能区显示”开发工具”选项卡”，如图所示：
3、点击“确定”按钮后，返回Excel工作表，这时可以在Excel工作表菜单栏中出现“开发工具”菜单项，选择“开发工具”菜单项中的“宏安全性”，如图所示：
4、打开“信任中心”窗口，选择左边栏中的“宏设置”一项，再在右边栏目中，选中“启用所有宏···”及勾中“信任对VBA工程对象模型的访问”一项，点击“确定”按钮：
5、返回到Excel工作表，在“开发工具”菜单下，选择“录制宏”一项，如图：
6、在打开的“录制新宏”窗口中，在“宏名”定义一个名称为：PassWordBreaker（可以任取），点击“确定”退出；
7、再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
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
8、选择“开发工具”菜单项下的“宏”选项，打开“宏”窗口，
在“宏”窗口中，“位置”一栏还是选择“当前工作簿”，并选择新创建的宏，然后选择“宏名”下的“PasswordBreaker”并点击“执行”，差不多1到2分钟时间之后，就会弹出当前受保护的工作表密码，密码就现形了。