excel密码忘记了，如何打开

时间：2013.06.15 发布人：chuyu2000
excel密码忘记了，如何打开

已解决问题

谷歌chuyu2000用户在2013.06.15提交了关于“长安悦翔excel密码忘记了，如何打开”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-10-25T11:04:22。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，谢谢你帮我,祝你快乐,愿你事事如意 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：wanyulu  

如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模问答块，在新出来的窗口粘贴一下代码：
Subcrack()
DimiAsLong
DimFileNameAsString
Application.ScreenUpdating=False
i=1
FileN川官题燃简各吗弦ame=Application.GetOpenFilename("Excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"VBA**")
FileName=Right(FileName,Len非(FileName)-InStrRev(FileName,"\"))
line2:
OnErrorGoToline1
DoWhileTrue
***.OpenFileName,,,,i
MsgBox"Passwordis"&i
ExitSub
Loop
li无显负少把掉兵月背ne1:
i=i+1
Resumeline2
App为商儿扩lication.ScreenUpdating=T地帮rue
EndSub然后直接在此界面下按F5运行此宏如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。若果还有读写密码，且与打开密码一样，将***.OpenFileName,,,,i改为***.OpenFileName,,,,i,i