打開文件
然后點工具——宏——錄制新宏，起個名比如aa
錄完之后停止（這樣就搞了個空宏）
接著再進工具——宏——宏，選中aa，點編輯
把彈出來的窗口里的內容全刪掉（本來也沒幾行）
替換成下面這段代碼：
Public Sub AllInternalPasswords()
' 破解工作表和工作簿結構密碼，原作者Bob McCormick
' 這段算法可能是他寫的，后面做了擴展
' Norman Harker 和 JE McGimpsey 2002年12月27日（第一版1.1）
' 2003年4月4日 JEM更新：統一消息為常量，去掉一個退出語句（版本1.1.1）
' 這個只能顯示哈希后的密碼，不是原始密碼
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
改編自 Bob McCormick 的基礎代碼 & _
由 Norman Harker 和 JE McGimpsey 完成
Const HEADER As String = AllI內部密碼提示
Const VERSION As String = DBLSPA
然后點工具——宏——錄制新宏，起個名比如aa
錄完之后停止（這樣就搞了個空宏）
接著再進工具——宏——宏，選中aa，點編輯
把彈出來的窗口里的內容全刪掉（本來也沒幾行）
替換成下面這段代碼：
Public Sub AllInternalPasswords()
' 破解工作表和工作簿結構密碼，原作者Bob McCormick
' 這段算法可能是他寫的，后面做了擴展
' Norman Harker 和 JE McGimpsey 2002年12月27日（第一版1.1）
' 2003年4月4日 JEM更新：統一消息為常量，去掉一個退出語句（版本1.1.1）
' 這個只能顯示哈希后的密碼，不是原始密碼
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
改編自 Bob McCormick 的基礎代碼 & _
由 Norman Harker 和 JE McGimpsey 完成
Const HEADER As String = AllI內部密碼提示
Const VERSION As String = DBLSPA