vba密码破解器 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 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 microsoft.public.excel.programming newsgroup."

Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

"now be free of all password protection, so