excel忘记密码如何解除

1.Excel文件密码忘记了,怎么解开

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开：新开一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以 上来自本人。