(资料图)
今天来聊聊关于excel加密文档密码忘了怎么办,excel文档加密忘记密码怎么办的文章,现在就为大家来简单介绍下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、如果知道密码的基本特征,对上述代码进行适当的修改,基本也可以实现。
相信通过excel文档加密忘记密码怎么办这篇文章能帮到你,在和好朋友分享的时候,也欢迎感兴趣小伙伴们一起来探讨。
本文由用户上传,如有侵权请联系删除!关键词: