无需工具破解Excel工作表保护密码..doc

无需工具破解Excel工作表保护密码 不需要烦琐的解密过程，不需要额外的第三方破解工具，只需要写一个工作宏，等上个一二分钟，很简单几步就可以破解密码.超级有用.建议保留.超级无敌有用!!! 方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 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 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 or data. DBLSPACE Access and use of some data may be an offense. If in doubt, dont. Const MSGNOPWORDS1 As String = There were no passwords on sheets, or workbook structure or windows. AUTHORS VERSION Const MSGNOPWORDS2 As String = There was no protection to workbook structure or windows. DBLSPACE Proceeding to unprotect sheets. AUTHORS VERSION Const MSGTAKETIME As String = After pressing OK button this will take some time. DBLSPACE Amount of time depends on how many different passwords, the passwords,