1\打开文件 2\工具—--宏--——录制新宏—-—输入名字如:aa 3\停止录制(这样得到一个空宏） 4\工具———宏--—-宏,选 aa,点编辑按钮 5\删除窗口中的所有字符（只有几个），替换为下面的内容：（你复制吧） Option ExplicitPublic 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—2025 （Version 1。1) ’ Modified 2025-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 2025—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 St...
