(之破解工作表.docxVIP

Excel?VBA之破解工作表/工作簿保护密码 2008-02-28 09:25:30怎么样设置工作表/工作簿密码？　制作好Excel表后，点击工具菜单下的保护-保护工作表/保护工作簿，在弹出的对话框中设置上密码即可。密码尽量设置的复杂点，防止暴力破解。?到此，工作表/工作簿密码就设置好了，下面我们就开始讲怎么破解这个密码。?怎么样破解这个密码？　注意：在破解之前最好先备份，免得发生意外！　破解密码，一般人都会想到用软件来破解，而我们今天是用VBA来进行破解。首先打开VBA编辑器。　1、点击工具-宏-Visual Basic编辑器，打开VBA的编辑器。?　２、在Visual Basic编辑器中，点击插入-模块，插入一个新的模块，我们的代码就是写到这个新的模块中的。?　３、将下面的代码复制到模块中，不需改动任何代码。Option Explicit 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-04 vbCrLf vbCrLf BeyondPC vbCrLf /beyondpcConst 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 A