我如何判断 VBA ActiveX 在 Windows 10 上是否被禁用？

Question

我为具有调用 CommonDialog.ShowColor 的按钮的用户窗体编写了 Excel VBA。

在我的开发人员系统上没有问题，在我们的网络系统上，由于安全问题，ActiveX 被禁用。

我可以忍受初始加载 Excel 工作簿时出现的错误警告，我想避免的是当用户单击按钮以显示颜色对话框时出现 VBA 编辑器。

我已经在 button_click 事件中尝试了 On Error Goto ，但这不起作用。

有没有办法从 VBA 中测试 ActiveX 是否被禁用然后禁用按钮？

谢谢

Answer 1

如果您的系统管理员正在应用组策略，请尝试以下操作：

Private Sub AX_Click()
    On Error GoTo ErrorHandler
    Dim WS As Object, RegistryKey As String, RegistryKeyValue As String
    Set WS = CreateObject("WScript.Shell")
    RegistryKey = _
"HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\Common\Security\DisableAllActiveX"
    If RegistryKey = "" Then Exit Sub
    If WS.RegRead(RegistryKey) = 0 Then
        MsgBox "Disabled"
    Else
        MsgBox "Enabled "
    End If
    Exit Sub
ErrorHandler:
    MsgBox "Key does not exist."
End Sub

或者如果他使用不同的方法更改注册表项，例如： trusted files或trusted locations 。