excel密码修改.docx

以下是excel 2007版本打开一个要破解的excel 按Alt+F11进入VBA界面点击插入模块复制代码到VBA编辑窗口内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, and your computers specification. DBLSPACE _?Just be patient! Make me a coffee! AUTHORS VERSION?Const MSGPWORDFOUND1 As String = You had a Worksheet _?Structure or Windows Password set. DBLSPACE _?The password found was: DBLSPACE $$ DBLSPA