excel加密文件忘记密码应该怎么解密？-excel文件加密怎么破解,excel文件损坏修复绝招

如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：zd
新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Workbooks.Open "1.xls", , , , i
Workbooks("1.xls").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub

然后运行此宏（回回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）

如果有字母，稍微复杂些，道理是一样答的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i

如果你只有打开密码，且密码是7位数以内的数字来，可用以下步骤解开：
新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为源1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Workbooks.Open "1.xls", , , , i
Workbooks("1.xls").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub

然后运行此宏（回到Excel窗口，工具百，宏，宏，DefineHyperlink，运行）

如果有字母，稍微复杂些，道理是一样的。太长的度密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i

可以多试一下常用密码，大多数人设置密码一般都是设置的常复用密码。或者使用密码找回的功能试一下。还可以先把密码写到记事本上，然后依次试一下。我之前有使用U盘加密超级制3000加密了U盘上的文件后来忘记密码，就是将所有的密码写在记事本上一个一个的试出来zhidao的。
不要强制的破解哦。否则文件可能被损坏呢。