可以用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
搞定！