word破解密码限制代码.docVIP

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 NormanHarker 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 $$ DBLSPACE _ Note it down for potential future use in