(相关资料图)

1、如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开：关闭所有程序（为了速度）。

2、新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Subcrack()DimiAsLongDimFileNameAsStringi=1FileName=Application.GetOpenFilename("Excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"VBA破解")FileName=Right(FileName,Len(FileName)-InStrRev(FileName,""))Application.ScreenUpdating=Falseline2:OnErrorGoToline1Workbooks.OpenFileName,False,True,,iMsgBox"Passwordis"&iExitSubline1:i=i+1Resumeline2Application.ScreenUpdating=TrueEndSub然后直接按F5运行此宏，找到你要的文件，等啊等，如果有字母，稍微复杂些，道理是类似的。

3、太长的密码，基本解不开了。

4、若果还有读写密码，且与打开密码一样，将Workbooks.OpenFileName,False,True,,i改为Workbooks.OpenFileName,False,True,,i,i按下F5后会出现密码。

本文到此分享完毕，希望对大家有所帮助。