VBA工程密码问题

BMW5566

请教各位大神：


如果VBA工程加密了（知道所设定的工程密码） 那如何添加代码：先解密再执行以下语句；（现在以下代码没有设定工程密码可以运行，设定了工程密码就提示工程锁定，无法进行）

With Workbooks(Workbooks.Count) '以下开始删除VBA代码
        Dim vbcCom, Vbc
        Set vbcCom = .VBProject.VBComponents
        For Each Vbc In vbcCom
            If Vbc.Name Like "Sheet*" Or Vbc.Name Like "This*" Then
                Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
            Else
                vbcCom.Remove (Vbc)
            End If
        Next Vbc
        .Save
        .Close
    End With'删除结束

morpheus126

帮顶，表示关注

feng-aa

我也是菜鸟，把破解vba工程密码破解的代码放到前面应该就可以了吧，或者把vba密码先解除在运行

BMW5566

feng-aa 发表于 2024-1-27 21:25
我也是菜鸟，把破解vba工程密码破解的代码放到前面应该就可以了吧，或者把vba密码先解除在运行

我也是这么想的，可搜了很多就是没有看到有关VBA密码解除的代码

czh6888

vba工程密码破解很容易

BMW5566

czh6888 发表于 2024-1-29 11:09
vba工程密码破解很容易

也不是要破解，只是设定了密码也是知道密码，只是在VBA工程加密的情况下如何编辑进行上面的语句

838225419

With Workbooks(Workbooks.Count) '以下开始删除VBA代码
        Dim vbcCom, Vbc
        Set vbcCom = .VBProject.VBComponents
        For Each Vbc In vbcCom
            If Vbc.Name Like "Sheet*" Or Vbc.Name Like "This*" Then
             ActiveSheet.Unprotect Password:="密码"
                Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
            Else
                vbcCom.Remove (Vbc)
            End If
                ActiveSheet.Protect Password:="密码"
        Next Vbc
        .Save
        .Close
    End With'删除结束

838225419

帖子已发，但理解错了，误解了

BMW5566

838225419 发表于 2024-1-29 15:41
帖子已发，但理解错了，误解了

没事，谢谢帮忙！我再等等看有没有其他大神能解

838225419

BMW5566 发表于 2024-1-29 17:24
没事，谢谢帮忙！我再等等看有没有其他大神能解

这个是zhaogang1960编写的代码，可参考一下：
原贴网址：https://club.excelhome.net/thread-981143-1-1.html?_dsign=66d57790

Sub OpenVBPrjWithPassword()
    Dim strPassWord As String
    '关闭VBE主窗口
    Application.VBE.MainWindow.Visible = False
    strPassWord = "123" '密码字符串
    '判断是否设置了工程保护,使用密码打开工程
    If ActiveWorkbook.VBProject.Protection = 1 Then
        Application.VBE.CommandBars.FindControl(ID:=2578).Execute
        SendKeys strPassWord & "{ENTER}{TAB}{ENTER}"
        DoEvents '更新工程状态
    End If
    '要执行其它的操作….
    '.....
End Sub