⑴ 如何用宏破解office密码
1、用简单的方法：
首先创建一个word文档，使用窗体保护的方式保护文档，工具->保护文档->Check“仅允许在文档中进行此类编辑”->Choose“填写窗体”，此时会弹出一个密码框，输入2次密码（我这里选择123作为word文件密码），这样，该文档就已经被保护起来了。
然我们来破解它，打开刚才创建的word文档，文件->另存为->选择HTML格式，存为一个HTML文档，用记事本打开该HTML文件，搜索"<w:UnprotectPassword>"，你会看到5BCECF7A的字样（如果你的密码是用的123的话）。
接着我们用UltraEdit或其他类似的工具打开最初受保护的Word文档，搜索7ACFCE5B，搜索到后，都用8个0来代替，存盘。
此时的Word文档的密码就被清空了，你就可以自己取消文档保护了，密码就不用输入了，按个回车了事。
用WordKey恢复Word密码
“WordKey”是一款著名的Word密码恢复工具，可以通过“暴力破解”、“字典破解”等方法，快速将Word文档中的密码恢复出来。所以当忘记Word文档密码后，“WordKey”就可以帮上大忙啦！
参考资料： http://www.weste.net/2005/6-14/21340125539.html
找回office文件密码
office是使用最为普遍的办公软件，工作繁忙的你，难免出现各种意外，比如对重要的WORD文档加密后却把密码忘得一干二净，这是最让人恼火和着急的了。
但使用AOPR(全称是Advanced office 2000 password Recovery。下载地址： http://www.skycn.com/soft/4373.html)
软件：Advanced Office XP Password Recovery Pro
http://download.enet.com.cn/html/070532003080401.html
“Advanced Office Password Recovery”，是一个 Microsoft Office 文件的密码恢复工具。支持最新版本 Office 2003 中的所有组件，支持所有语言版本。非常好的，下载地址：
http://www.hanzify.org/index.php?Go=Show::List&ID=8444
就可以把office文档的密码很快找回来。就拿一个DOC文档做个演习。
1、安装上AOPR后，启动它，点击“FileName”右侧的打开文件夹图标，选择需要进行破解的文件。
2、“Type of attack”就使用默认的“Bruteforce attack”，然后是设置密码的长度和组成字符。
3、设置好以后点击工具栏上的“Start recovery”开始破解。稍后（时间长短跟设置的密码长度和组成的复杂度有很大的关系），密码就成功破解了。
AOPR不光可以破解WORD文件，它对EXCEL等OFFICE软件产生的文档密码都可以进行解码，方法也大致一样。
参考资料： http://..com/question/1774107.html
⑵ 你好：我也遇到EXCEL中，VBAProject宏密码，请求破解方法，谢谢
首先建一新EXCEL文件,复制以下代码，执行宏即可
Private Sub VBAPassword()
'你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub