office 2003版本word、excel、ppt加密，但是密码忘记了，有没暴力破解的？

Excel—“撤销工作表保护密码”的破解并获取原始密码
在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！
1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；

从横线下开始复制
------------------------------------------------------------------------------------------
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
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
-----------------------------------------------------------------------------------------
复制到横线以上
6、关闭编辑窗口；
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；
等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：

再点击确定。Excel的原始密码就被清除了!!

Office Password Recovery Toolbox
Office Password Recovery Toolbox 是一个用于恢复 MS Word、Excel、Outlook、Access、PowerPoint 和 VBA 密码的完整解决方案。

Office Password Recovery Toolbox 是一个用于恢复 MS Word、Excel、Outlook、Access、PowerPoint 和 VBA 密码的完整解决方案。
概述
为保护隐私并限制对敏感信息的访问，MS Office 提供了不同类型的保护。 无论是打开 (“open”)、写入 (“write”) 还是其他保护方法，密码始终都是其关键要素。 没有密码，就不可能对最为敏感和重要的数据进行访问。 如果 Word 或 Excel 文档、Access 数据库或 Outlook 文件夹的密码丢失或被意外更改，那么我们该怎么办？ 是否这就意味着永远无法再访问这些信息？ Office Password Recovery Toolbox 是一个可以在此类以及其他情况下恢复密码的解决方案。 程序可以迅速恢复 MS Word、Excel、PowerPoint、Access 和 Outlook 文件的密码。 其令人惊异的性能建立在 Office 保护的专业知识以及运用功能强大的解密服务器的基础上。 这些相互配合的组件能够确保快速、安全地恢复几乎任何密码。
Office Password Recovery Toolbox 可以恢复六种类型的密码 – Word 密码、Excel 密码、Outlook 密码、Access 密码、PowerPoint 密码、VBA 密码
功能和优点
恢复或取消 Microsoft Word 文档的打开 (“open”)、写入 (“write”) 和保护 (“protection”)密码。[1]
恢复或取消 MS Excel 文档的打开 (“open”)、写入 (“write”)、工作簿 (Workbook)、共享工作簿 (shared workbook) 和工作表 (worksheet) 密码。[1]
取消 MS PowerPoint 2007 文档的写入 (“write”) 密码。
恢复 MS Outlook 个人文件夹文件 (personal folder file) (*.PST) 的密码。
恢复 MS Access 数据库文件 (*.MDB) 和工作组信息文件 (*.MDW) 的密码。
恢复 MS Word、Excel、PowerPoint 和 Outlook 文件中的 VBA 项目密码。
在线密码恢复服务，隐私安全有保障。
即时恢复任何长度和复杂性的密码。
支持多语言密码。
允许设置访问密码来防止未经授权的程序运行。
允许将恢复的密码复制到剪贴板。
简单的用户友好界面。
系统要求
Windows 9x / ME / NT / 2000 / XP / 2003 / Vista / 7。
支持在 MS Word 和 Excel 97 / 2000 / XP / 2003 / 2007 / 2010 中创建的文件。
支持在 MS PowerPoint 2007 中创建的文件。
支持在 MS Outlook 和 Access 97 / 2000 / XP / 2003 中创建的文件。
解密在 MS Word 和 Excel 97 / 2000 / XP / 2003 中创建并以标准方法（与 Office 97/2000 兼容）保护的文档。
恢复 MS Word、Excel 和 Outlook 97 / 2000 / XP / 2003 文件的 VBA 项目密码。
[1] 程序不支持恢复 MS Word、Excel、PowerPoint 2007 / 2010 文档的打开 (“open”) 密码。
程序无法处理采用非标准 CSP（可以在 Microsoft Office XP / 2003 中选择 CSP）加密的文档以及在法语版本 MS Word 或 Excel 97 中创建的文档。

这个不错，瞬间去掉密码，不过需要连接软件的服务器
-----------------------------------
网上有破解版的，慎选之

有，在百度上搜“Advanced office password recovery ”

送哪里呀？