您好,今天蔡哥来为大家解答以上的问题。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、如果知道密码的基本特征,对上述代码进行适当的修改,基本也可以实现。
本文就为大家分享到这里,希望小伙伴们会喜欢。