怎样取消EXCEL中ActiveX 控件的安全性警告？

潇洒帅

如图片所示，我在EXCEL中使用了条形码控件以后，每次打开文件时都会出现要初始化不安全的ActiveX 的警告。并有如下提示： 求解，谢谢！

有人说用如下代码可以解决，但是不知道怎么用才行：

Sub RegWrite()
    Dim WShell As Object
    Set WShell = CreateObject("Wscript.Shell")
     WShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
    Set WShell = Nothing
End Sub



这种状况与 ActiveX 控件如何在 Office 应用程序中初始化相关。ActiveX 控件程序可以将数据存储在注册表或者控件本身中。ActiveX 控件与 Visual Basic for Applications 宏相似，不同的是它们可以被编译为特殊文件格式并且链接到可以支持它们的数据文件(例如 Word 文档和 Excel 工作簿)。当您收到有 ActiveX 控件链接到它的文件，有可能是有未知的持续数据(与控件存储在一起的数据)，或者恶意数据 - 恶意植入病毒或修改您的计算机。Office 应用程序在默认情况下可以阻止 ActiveX 控件使用持续数据。但是，如果您在安装过程中曾经特意更改了对 ActiveX 初始化的默认设置，或者使用某策略，系统将基于您的自定义设置执行 ActiveX 控件的初始化。
如果您选择允许应用程序运行控件并且使用持续数据，您需要承担由此带来的风险。强烈建议您不要运行不信任的人提交来的文档中的 ActiveX 控件。然而，如果您相信文档来源以及发送文档给您的个人或公司，那么您可以加载控件并允许它使用持续数据。但是，不能保证与控件相关的数据在实际使用中是安全的。
Office 应用程序在将 ActiveX 控件链接参考从一种文档或文件格式迁移到另一种格式时具有一定的局限性。例如，您可以链接一个 ActiveX 控件到 Word 文档并保存文件。但是，当您将 Word 文档转换为其它格式时，到 ActiveX 控件的连接参考也许不能转换为该种文件格式。因此，对带有 ActiveX 控件连接的文件的转换可能不支持所有文件类型，部分原因是由于并不是所有的文件类型都支持 ActiveX 控件链接或激活。对于带有到 ActiveX 控件链接的文件，需要在文件转换之前接受并激活 ActiveX 控件。如果 ActiveX 控件未被激活，连接参考将被丢掉，不会显示在转换的文件中。

szj3714

你的那个是正确的，你只要在thisworkbook中调用就行了
Private Sub Workbook_Open()
RegWrite
End Sub

szj3714

其实这个东西不必要每次都需要，你往注册表中写入就行了。
把下面的保存为reg文件导入到注册表就行了
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\VBA\Security]
"LoadControlsInForms"=dword:00000001

潇洒帅

原帖由 szj3714 于 2010-5-29 10:44 发表
你的那个是正确的，你只要在thisworkbook中调用就行了
Private Sub Workbook_Open()
RegWrite
End Sub

非常感谢，已经用此方法解决

十四口

学习了，谢谢楼主！

zhhb2006

szj3714 发表于 2010-5-29 10:46
其实这个东西不必要每次都需要，你往注册表中写入就行了。
把下面的保存为reg文件导入到注册表就行了
Win ...

非常好的方法！！！解决了困扰我很长时间的问题！！

我的系统是Windows7+office2003，几乎用了所有的方法，均不能起效，就连楼主的这个方法也无效，用了这个方法以后问题解决。

但是，还有一个问题：我用的是Winsock控件，如何在没有安装VB6的电脑中启用此控件？
按网上的方法，都不能起效：先把Winsck.ocx控件拷贝到system32文件夹，再注册之，然后在VBA中引用，最后添加此控件。
但是这个方法无效，谁有更好的方法，不用安装VB6的方法，谢谢！！

lu_zhao_long

szj3714 发表于 2010-5-29 10:46
其实这个东西不必要每次都需要，你往注册表中写入就行了。
把下面的保存为reg文件导入到注册表就行了
Win ...

多谢！
我一直在找这样的方法来解决我们控制系统使用的软件 VBA 问题。随着操作系统补丁越来越多，以前软件中的 ActiveX 控件因为没有数字签名，所以现在一直出现安全性警告，需要一个一个地确认！非常恼人！

weng21509

试了一下，效果确实不错。

convind

谢谢分享，辛苦了

convind

谢谢分享，辛苦了~~~