如何破解VBA密码呢?
见过网上很多关于破解VBA工程密码的方式,最常见的如下这种,但其实对于很多版本是不可行的。
基本都会提示“请先对VBA编码设置一个保护密码...”
1 Sub VBAPassword() 2 '你要解保护的Excel文件路径 3 Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解") 4 5 If Dir(Filename) = "" Then 6 MsgBox "没找到相关文件,清重新设置。" 7 Exit Sub 8 Else 9 FileCopy Filename, Filename & ".bak" '备份文件。 10 End If 11 12 Dim GetData As String * 5 13 Open Filename For Binary As #1 14 Dim CMGs As Long 15 Dim DPBo As Long 16 For i = 1 To LOF(1) 17 Get #1, i, GetData 18 If GetData = "CMG=""" Then CMGs = i 19 If GetData = "[Host" Then DPBo = i - 2: Exit For 20 Next 21 22 If CMGs = 0 Then 23 MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" 24 Exit Sub 25 End If 26 27 Dim St As String * 2 28 Dim s20 As String * 1 29 '取得一个0D0A十六进制字串 30 Get #1, CMGs - 2, St 31 '取得一个20十六制字串 32 Get #1, DPBo + 16, s20 33 '替换加密部份机码 34 For i = CMGs To DPBo Step 2 35 Put #1, i, St 36 Next 37 38 '加入不配对符号 39 If (DPBo - CMGs) Mod 2 <> 0 Then 40 Put #1, DPBo + 1, s20 41 End If 42 MsgBox "文件解密成功......", 32, "提示" 43 Close #1 44 End Sub
还有一种是通过二进制的方式去删除密码,但是这种会把里面的代码都干掉,所以也不是我们想要的结果
最后介绍一种工具来破解来VBA密码,亲测有效
注意:当提示破解成功,直接点确定就可以进去啦
下载链接:链接:https://pan.baidu.com/s/1WXDtQ8AX4SqFcIDh_ClbPQ 提取码:wb6e