|
Excel密码保护的解除方法与解除原理(2) 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
第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了(图4)。
第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。
二、软件破解法
有许多专门为破解Excel各种密码而制作的软件，Excel Key与Advanced Office Password Recovery就是其中的佼佼者。它们的使用方法简单且破解速度极快。
1. Excel Key
下载(下载地址：http://www.mydown.com/soft/183/183131.html)安装完后运行软件，点击工具栏“Recovery”按钮，找到要破解的文件，软件马上就可以解出密码了(图5)。
2. Advanced Office Password Recovery
下载(下载地址：http://www.mydown.com/soft/utilitie/security/268/410768.shtml)安装完后运行软件，点击工具栏“Open File”按钮，打开要破解的Excel文件，马上就可以看到解出的密码了(图6)。
| 
