在 Excel 中可能有些重要数据需要修改,但遗憾的是忘记了密码。这个时候就需要进行对文件密码的破解。下面是我带来的关于excel2013关于VBA密码破解的教程,欢迎阅读!
excel2013关于VBA密码破解的教程教程1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
excel2013关于VBA密码破解的教程图1
教程2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
excel2013关于VBA密码破解的教程图2
教程3:将代码复制到这个模块中,代码如下:
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = ApplicationGetOpenFilename("Excel文件(xls & xla & xlt),xls;xla;xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & "bak" '备份文件。
End If
Dim GetData As String 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码", 32, "提示"
Exit Sub
End If
Dim St As String 2
Dim s20 As String 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不 配对 符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功", 32, "提示"
Close #1
End Sub
excel2013关于VBA密码破解的教程图3
教程3:然后点击运行按钮,如图所示,绿色的小三角就是
excel2013关于VBA密码破解的教程图4
教程4:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
excel2013关于VBA密码破解的教程图5
教程5:稍等几分钟你就会看到破解成功的提示了
excel2013关于VBA密码破解的教程图6
方法很多,用系统自带的EFS(不过这个的加密效果不会是你需要。)
最方便的还是用文件夹加密软件。
如果你用文件夹加密软件加密文件夹, 文件夹加密超级大师是一个不错的选择。
下载安装文件夹加密超级大师后,在需要加密的文件夹上单击右键,选择加密。
然后在d出加密窗口中输入加密密码,选择想要的加密类型,然后点击确定就可以了。
1、首先,如果文件格式是Excel 2010版(xslm),需要先打开Excel文件,另存为2003版格式(xls)。
2、然后用普通的文本编辑器(这里用的是NotePad++)打开这个文件,注意文件类型选“所有文件”。
3、然后在文件里查找“DPB",把它改成“DPx”。注意大小写。
4、保存修改。然后用Excel重新打开这个文件。你会遇到一些错误,忽略它们。
5、然后进入Excel的“开发工具”面板,选择“Visual Basic”。又会有一系列错误,忽略它们,知道VBA项目打开。
6、这时候已经可以查看VBA代码了。如果想改变甚至去除原来的密码,继续看。从VBA编辑器的“工具”菜单,选择“VBA工程属性“,然后转到”保护“面板。
7、在密码框中输入新密码。保存VBA文件和Excel文件,关闭Excel。重新启动Excel并重新打开这个文件,然后进入"开发工具"->"Visual Basic",会提示输入密码。输入新设置的密码。
8、然后回到VBA编辑器的“工具”->"VBA工程属性"->“保护”,去掉密码以及保护选项前面的标记。最后保存文件即可。
以上就是关于excel2013关于VBA密码破解的教程全部的内容,包括:excel2013关于VBA密码破解的教程、您好,我有一个EXCEL文件,里面有VBA代码,但是加密了,我想请您帮忙,能告诉我一下破解的方法么、Excel vba 忘了密码 怎么办等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)