[已解决]提示此应用程序要初始化可能不安全的ActiveX控件如何解决呢？

nhy12345678

此应用程序要初始化可能不安全的ActiveX控件，如果你信任文件来源，请选择“确认”，应用程序将使用当前的工作区域设置初始化控件。

有的机器上有提示，有的没有，请问改设置什么地方呢？

运行如下程序即可：

Sub RegWriteProc()
    Set WshShell = CreateObject("Wscript.Shell")
    WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
    WshShell.RegWrite "HKCU\Software\Microsoft\Office\Common\Security\UFIControls", 1, "REG_DWORD"
    Set WshShell = Nothing
    Application.Quit
End Sub

dbczhaoy

应该是机器本身的保护有关，与代码关系不大。

dianbotang

今天刚好碰到了这个问题，希望能够解决。

革天明

dianbotang 发表于 2009-3-22 00:36
今天刚好碰到了这个问题，希望能够解决。

应该不能解决，毕竟VBA的威力也很强，它总要提示你一下，有问题了就不用负责了