可以用VBA破解，記得先備份一下，以防萬一！步驟很簡單：
1. 點擊工具→宏→Visual Basic編輯器，打開編輯器；
2. 在編輯器里，點擊插入→模塊，加個新模塊；
3. 把下面的代碼直接復制過去，啥也不用改：
vba
Option Explicit
Public Sub AllInternalPasswords()
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 & vbCrLf & vbCrLf & BeyondPC & vbCrLf & http://blog.sina.com.cn/beyondpc
Const REPBACK As String = DBLSPACE & Please report failure & _
to the microsoft.public.excel.programming newsgroup.
Const ALLCLEAR As String = DBLSPACE & The
搞定！
1. 點擊工具→宏→Visual Basic編輯器，打開編輯器；
2. 在編輯器里，點擊插入→模塊，加個新模塊；
3. 把下面的代碼直接復制過去，啥也不用改：
vba
Option Explicit
Public Sub AllInternalPasswords()
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 & vbCrLf & vbCrLf & BeyondPC & vbCrLf & http://blog.sina.com.cn/beyondpc
Const REPBACK As String = DBLSPACE & Please report failure & _
to the microsoft.public.excel.programming newsgroup.
Const ALLCLEAR As String = DBLSPACE & The
搞定！