如果excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一excel，同时按alt和f11，进入vba界面， 点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
sub crack()
dim i as long
dim filename as string
application.screenupdating = false
i = 1
filename = application.getopenfilename("excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "vba破解")
filename = right(filename, len(filename) - instrrev(filename, ""))
line2:
on error goto line1
do while true
workbooks.open filename, , , , i
msgbox "password is " & i
exit sub
loop
line1:
i = i + 1
resume line2
application.screenupdating = true
end sub
然后直接在此界面下按f5运行此宏
如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不 开了。
若果还有读写密码，且与打开密码一样，将workbooks.open filename, , , , i 改为workbooks.open filename, , , , i, i
