各位朋友估计都经历过excel 设置了密码,N久以后本以为这辈子都不会忘记的密码,真的忘记了。
唯一能做的就是破解,但网上各种破解工具又不可靠,各种担心,好不容易鼓起勇气决定下载破解软件,结果一次次中招,密码没有破解,自己中毒不浅。。。
只能自己想办法了!利用宏运行方式破解,真的很有效,运行中可能电脑会有两分钟无反应,千萬不要以为死机了哦,等一等!
步骤方法如下:
- 打开文件
- 工具—宏—-录制新宏—输入名字如:【W搞密码W】
- 停止录制(这样得到一个空宏)
- 工具—宏—-宏,选【W搞密码W】,点【编辑】按钮
- 删除窗口中的所有字符(只有几个),替换为下面的内容:(复制以下代码)
- 关闭编辑窗口
- 工具—宏—–宏,选【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