总弹出：此应用程序将要初始化可能不安全的ActiveX

zhyan111 · 发表于 2011-2-15 00:41

C:\act.jpg

为什么总打开表时总弹出
此应用程序将要初始化可能不安全的ActiveX控件，如果您信任文件来源。。。
请位老师这个对话框怎么能取消？？？谢谢老师

qczvba · 发表于 2011-2-15 14:05

在文件中运行代码：
Sub ControlAx()
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
Set WshShell = Nothing
End Sub
2、退出excel，再次打开就可以了。
网友的，转发了。

puke_buke · 发表于 2011-5-1 21:08

正为此烦恼呢，终于解决了，谢谢楼上！

qianlan · 发表于 2011-8-6 13:38

谢谢分享！也谢谢楼主的问题！

yxrlqy · 发表于 2012-3-20 17:22

解决问题了，谢谢。

hkyooa · 发表于 2012-4-8 20:34

qczvba 发表于 2011-2-15 14:05
在文件中运行代码：
Sub ControlAx()
Dim WshShell As Object

正遇此类问题,谢谢!

shesunone · 发表于 2012-9-22 10:48

qczvba 发表于 2011-2-15 14:05
在文件中运行代码：
Sub ControlAx()
Dim WshShell As Object

弱弱的问一句，在什么时间运行该代码……

a31462627 · 发表于 2018-5-11 15:09

workbook.open()

		自动登录	找回密码
密码			免费注册

[求助] 总弹出：此应用程序将要初始化可能不安全的ActiveX