如果 Excel 文件的打开密码忘记了，且密码是 7 位数以内的数字，可用以下步骤解开：新开一 Excel，同时按 Alt 和 F11，进入 VBA 界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As StringApplication.ScreenUpdating = Falsei = 1FileName = Application.GetOpenFilename(“Excel 文件（*.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