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