破解工作表密码.pdfVIP

在网上一个角落里无意间发现关于破解 Excel 文档工作薄、工作表保 护（指菜单中工具－保护－保护工作表及保护工作薄的密码）的代码，试 用了一下，真是百试百灵，超级经典啊，就算你的机器再破，也能在 5 分 钟内破解（第一次可能会有点慢，但是用过一次之后，你随便在这台机器 上破解别的文档中的加密保护，速度会有质的飞跃，本人第一次破解花了 8 分钟，之后破解 13 位密码只要 2 分钟），快哇，哈哈，你试了就知道 了。现介绍给无意间忘记密码的“志同道合们”，以后你们可以不必再烦 恼啦。试用了之后如果如我所言，有钱人可以赞助一下，没钱的捧个人 场，让我有动力继续寻找更经典的东东，奉贤给大家！！！！！！ 注：使用这个代码你完全不用担心会不会 VBA，有操作方法，只要按 照方法操作就行，完全傻瓜式。（本人已经试验无数次，如果你操作失 败只能说你比傻瓜还要傻， ） 以下内容只有 回复后才可以浏览 方法 : 打开文件 工具 宏 录制新宏 输入名字如 :aa 停止录制 ( 这样得到一个空宏 ) 工具 宏 宏 , 选 aa, 点编辑按钮 删除窗口中的所有字符 ( 只有几个 ), 替换为下面的内容 :( 复制吧 ) 关闭编辑窗口 工具 宏 宏 , 选 AllInternalPasswords, 运行 , 确定两次 , 等 2 分 钟 , 再确定 .OK, 没有密码了 !! 内容如下 : Public Sub AllInternalPasswords() Breaks worksheet and workbook structure passwords. Bob McCormi ck probably originator of base code algorithm modified for covera ge of workbook structure / windows passwords and for multiple pas swords 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 String = DBLSPACE Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE Please report failure _ to the gramming newsgroup. Const ALLCLEAR As String = DBLSPACE The workbook should _ now be free of all password protection, so make sure you: _ DBLSPACE SAVE IT NOW! DBLSPACE and also _ DBLSPACE BACKUP!, BACKUP!!, BACKUP!!! _ DBLSPACE Also, remember that the password was _ put there for a reason. Dont stuff up crucial formulas _ o