vba私有(private)脚本

Question

我知道即使是私有(private)的 vba 脚本也可以由用户调用，这样使其“私有(private)”实际上只会隐藏其名称。

但是，有没有办法设置宏，使其只有在特定的 VBA 项目中才能运行？不是来自 Excel，也不是来自任何 VBScript 等。

Answer 1

如果您想锁定代码，您可以

• 将代码设为私有(private)，这样宏名称就不会暴露
• 锁定保护，然后在让代码运行之前测试项目是否实际解锁

下面的示例代码在运行前检查宿主工作簿中的 VBA 是否不 protected

这能满足您的需求吗？

    Private Sub TestMe()
    Dim objVB As Object
    Set objVB = ThisWorkbook.VBProject
    If objVB.Protection = 0 Then
        Call TestSub
    Else
        MsgBox "Sorry sport - unauthorised", vbCritical
    End If
    End Sub

    Private Sub TestSub()
    MsgBox "Project unprotected - i've been run", vbOK
    End Sub