一、excel加密文件忘记密码应该怎么解密
如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：x0dx0a新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码x0dx0aSub crack()x0dx0aDim i As Longx0dx0ai = 1x0dx0aline2:x0dx0aOn Error GoTo line1x0dx0aDo While Truex0dx0aWorkbooks.Open "1.xls", , , , ix0dx0aWorkbooks("1.xls").Close 0x0dx0aMsgBox "Password is" & ix0dx0aExit Subx0dx0aLoopx0dx0aline1:x0dx0ai = i + 1x0dx0aResume line2x0dx0aEnd Subx0dx0ax0dx0a然后运行此宏（回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）x0dx0ax0dx0a如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。x0dx0ax0dx0a若果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i
二、excel加密后忘记密码了
只要知道密码特征，根据组合遍历尝试，一般情况下是可以解密的。
举例说明。
将文件sample保存为带密码的文件，密码设置为“123”。如图：
第二步：创建新文档。
第三步：插入模块，输入以下代码。
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
如图：
第四步：运行宏。如图：
第五步：按提示打开指定的文件。运行后结果如图：
说明：1、这段程序仅适用于纯数字的密码；
2、如果知道密码的基本特征，对上述代码进行适当的修改，基本也可以实现。
三、excel文件密码忘记了
1、首先在找到需要打开的Excel文件，另存为在桌面
2、在桌面新建一个Excel文件
3、双击打开新建的Excel文件
4、点击左上角的文件按钮，选择“打开”，之后弹出一个小窗口
5、在文件名一栏的右侧，点击下拉箭头，选择“所有文件”，在方框内的小窗口界面中，找到你需要打开的WPS文件，选择打开
6、打开之后选择另存为Excel文件，此时会有一个新的Excel文件产生，里面的内容就是WPS文件中的内容，excel文件密码忘记了就可以打不开了。
