破解VBA密码

yong325

于 2013-05-07 17:06:31 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB+VBA 文章标签： VBA 密码

本文链接：https://blog.youkuaiyun.com/yong325/article/details/8896110

这篇博客介绍了一种破解VBA密码的方法，通过读取和修改Excel文件的二进制内容来解除VBA项目的保护。文章包含两个子过程，VBAPassword用于执行解密操作，CommandButton1_Click作为触发器调用VBAPassword。该过程首先查找特定的字符串标记，然后替换加密部分的机器码，从而实现解密。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private 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 * 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

    If Protect =

最低0.47元/天解锁文章