《如果Excel文件的打开密码忘记了.doc》由会员分享,可在线阅读,更多相关《如果Excel文件的打开密码忘记了.doc(1页珍藏版)》请在金锄头文库上搜索。
1、如果Excel文件的打开密码忘记了,且密码是7位数以内的数字,可用以下步骤解开:新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:Sub crack()Dim i As LongDim FileName As StringApplication.ScreenUpdating = Falsei = 1FileName = Application.GetOpenFilename(Excel文件(*.xls & *.xlsx),*.xls;*.xlsx, , VBA破解)FileName = Right(FileName, Len(FileNa
2、me) - InStrRev(FileName, )line2:On Error GoTo line1Do While TrueWorkbooks.Open FileName, , , , iMsgBox Password is & iExit SubLoopline1:i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然后直接在此界面下按F5运行此宏如果有字母,稍微复杂些,道理是类似的。太长的密码,基本解不开了。若果还有读写密码,且与打开密码一样,将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i