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、如果知道密码的基本特征，对上述代码进行适当的修改，基本也可以实现。

本文就讲到这里，希望大家会喜欢。

标签：

版权声明：本文由用户上传，如有侵权请联系删除！