VBA工程密码破解

如何破解VBA密码呢？

​

见过网上很多关于破解VBA工程密码的方式，最常见的如下这种，但其实对于很多版本是不可行的。

基本都会提示“请先对VBA编码设置一个保护密码...”

 Sub VBAPassword()
     '你要解保护的Excel文件路径
     Filename = Application.GetOpenFilename("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 *
 　　Open Filename For Binary As #
 　　Dim CMGs As Long
 　　Dim DPBo As Long
 　　For i =  To LOF()
 　　　　Get #, i, GetData
 　　　　　　If GetData = "CMG=""" Then CMGs = i
 　　　　　　　　If GetData = "[Host" Then DPBo = i - : Exit For
 　　Next
 　　
 　　If CMGs =  Then
 　　　　MsgBox "请先对VBA编码设置一个保护密码...", , "提示"
 　　　　Exit Sub
 　　End If

 　　Dim St As String *
 　　Dim s20 As String *
 　　'取得一个0D0A十六进制字串
 　　Get #, CMGs - , St
 　　'取得一个20十六制字串
 　　Get #, DPBo + , s20
 　　'替换加密部份机码
 　　For i = CMGs To DPBo Step
 　　　　Put #, i, St
 　　Next

 　　'加入不配对符号
 　　If (DPBo - CMGs) Mod  <>  Then
 　　　　Put #, DPBo + , s20
 　　End If
 　　MsgBox "文件解密成功......", , "提示"
 　　Close #
 End Sub

还有一种是通过二进制的方式去删除密码，但是这种会把里面的代码都干掉，所以也不是我们想要的结果

​

最后介绍一种工具来破解来VBA密码，亲测有效

​

注意：当提示破解成功，直接点确定就可以进去啦

下载链接：链接：https://pan.baidu.com/s/1WXDtQ8AX4SqFcIDh_ClbPQ
提取码：wb6e