EXCEL密码清除(破解找回密码)——巧用宏代码

各位朋友估计都经历过excel 设置了密码，N久以后本以为这辈子都不会忘记的密码，真的忘记了。

唯一能做的就是破解，但网上各种破解工具又不可靠，各种担心，好不容易鼓起勇气决定下载破解软件，结果一次次中招，密码没有破解，自己中毒不浅。。。

只能自己想办法了！利用宏运行方式破解，真的很有效，运行中可能电脑会有两分钟无反应，千萬不要以为死机了哦，等一等！

步骤方法如下:

1. 打开文件
2. 工具—宏—-录制新宏—输入名字如：【W搞密码W】
3. 停止录制(这样得到一个空宏)
4. 工具—宏—-宏,选【W搞密码W】,点【编辑】按钮
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 passwords
 Const DBLSPACE As String = vbNewLine & vbNewLine
 Const 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