excel怎么解密？

excel

在密码保护的excel文件中，简单的密码（如六位以内的数字）可以通过宏来解密。为了提高效率，我们可以先退出其他程序。然后打开一个新的excel文件，在VBA编辑器中插入一个模块，并粘贴以下代码：VBASub crack()Dim i As LongDim FileName As StringFileName = Application.GetOpenFilename("excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")ChDrive Left(FileName, 1)ChDir Left(FileName, InStrRev(FileName, ""))FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))i = 1Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, False, True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub在VBA编辑器界面下按F5运行此宏并等待结果。如果密码中包含字母，则稍微复杂一些。但对于长度过长的密码而言，这种方法可能无法破解。需要注意的是，如果excel文件设置了读写密码与打开密码相同，则需要在上述代码中修改为Workbooks.Open FileName, False, True, , i, i来运行宏。