如果您想锁定代码,您可以
下面的示例代码在运行之前检查主机工作簿中的 VBA 是否不受保护
这满足您的需求吗?
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
Run Code Online (Sandbox Code Playgroud)

| 归档时间: |
|
| 查看次数: |
4507 次 |
| 最近记录: |