使用 VBA 保护 VBA 项目

Question

当我的 VB 项目完成运行时，它会保存一份新的 Excel 工作簿副本，然后通过电子邮件将其发送到提供的分发版。当代码运行时，VB 项目应该是不受保护的，允许 VBE 抛出的任何错误被“调试”（这对于锁定的项目是不可能的 - 不幸的是，调试的原因不能在错误处理程序中解释；它主要是与针对 SQL 服务器数据库运行的查询有关）。

但是，我希望 VB 项目在保存为新副本后受到保护，以防止收到分发副本的任何人能够访问 VB 项目。

我进行了搜索，但似乎找不到与使用 VBA 锁定 VB 项目相关的任何答案。任何指导表示赞赏。

Answer 1

基于this thread:

Sub ProtectVBProject(WB As Workbook, ByVal Password As String) 

    Dim VBP As VBProject, oWin As VBIDE.Window 
    Dim wbActive As Workbook 
    Dim i As Integer 

    Set VBP = WB.VBProject 
    Set wbActive = ActiveWorkbook 

    ' Close any code windows To ensure we hit the right project 
    For Each oWin In VBP.VBE.Windows 
        If InStr(oWin.Caption, "(") > 0 Then oWin.Close 
    Next oWin 

    WB.Activate 
    ' now use lovely SendKeys To unprotect 
    Application.OnKey "%{F11}" 
    SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~" 
    Application.VBE.CommandBars(1).FindControl(Id:=2578, recursive:=True).Execute 
    WB.Save 
End Sub