大家好,今天小六子来为大家解答以下的问题，关于excel文档加密了密码忘记了怎么打开，excel文档加密忘记密码怎么办这个很多人还不知道，现在让我们一起来看看吧！

1、只要知道密码特征，根据组合遍历尝试，一般情况下是可以解密的。

2、举例说明。

3、将文件sample保存为带密码的文件，密码设置为“123”。

4、如图：第二步：创建新文档。

5、第三步：插入模块，输入以下代码。

6、Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))Application.ScreenUpdating = Falseline2: On Error GoTo line1***.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub 如图：第四步：运行宏。

7、如图：第五步：按提示打开指定的文件。

8、运行后结果如图：说明：这段程序仅适用于纯数字的密码；          2、如果知道密码的基本特征，对上述代码进行适当的修改，基本也可以实现。

本文分享完毕，希望对你有所帮助。