如何破解EXECL表格的保护密码.doc

超级无敌有用！！！方法:1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制(这样得到一个空宏)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 passwordsConst DBLSPACE As String = vbNewLine vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _Adapted from Bob McCormick base code by _Norman Harker and JE McGimpseyConst HEADER As String = AllInternalPasswords User MessageConst VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04Const 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 VERSIONConst MSGNOPWORDS2 As String = There was no protection to _workbook structure or windows. DBLSPACE _Proceeding to unprotect sheets. AUTHORS VERSIONConst MSGTAKETIME As String = After pressing OK button this _will take some time. DBLSPACE Amount of time _depends on how many different passwords, the _passwords, and your computers specification. DBLSPACE _Just be patient! Make me a coffee! AUTHORS VERSIONConst MSGPWORDFOU