破解表格密码分解.docx

如何破译Excel受保护加密表格？ 分享| 2013-07-27 14:46 excel 专业回答 百度知道电脑团?团队 我是来吓宝宝的 2015-10-29 08:11 1、首先，打开受保护的Excel表格，按“ALT”+“F11”键，弹出如下的界面。 2、点击“插入”——“模块”，出现下图 3、打开“/s/blog_482dc6170101f6yc.html”复制文中的代码，粘贴到空白区域； 4、点击“F5”运行宏模块，进行密码破解，出现如下图，密码为图中的圈圈 5、经过以上的步骤，此Excel的表格的密码已经自动除去 破解需要复制的命令为： 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.