网上流传有一个宏,可以解除工作表保护的密码。
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 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 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. Don't stuff up crucial formulas " & _
" or data. " & DBLSPACE & " Access and use of some data " & _
" may be an offense. If in doubt, don't. "
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
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 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. Don't stuff up crucial formulas " & _
" or data. " & DBLSPACE & " Access and use of some data " & _
" may be an offense. If in doubt, don't. "
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