如果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(FileName) - 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