vba - 在 VBA (Excel 2013) 中解决 Web 浏览器 ActiveX 控件失败

Question

我之前为 Excel 2007 编写的一段代码遇到了问题。我现在使用的是 Excel 2013，它引发了 438 运行时错误。

这是引发错误的行。

 ActiveSheet.WebBrowser1.Visible = True

我在设计模式中检查了 Web 浏览器对象肯定存在于事件工作表中，并且被称为“WebBrowser1”。我还检查了 MS Internet Controls 是否已启用。 MS 是否改变了 WebBrowser 对象的工作方式？

Answer 1

我已经为我自己的机器找到了问题和解决方法，但非常感谢有关更好地处理此问题以分发给其他用户的建议。

问题是由于安全问题，为 Web 浏览器对象设置了 KillBit。

解决方法(可能让用户对安全问题持开放态度)是进入注册表并将值从 400 更改为 0。我的 64 位系统的地址是:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}但如果您搜索“COM 兼容性”，您应该会找到正确的位置。

关闭并重新启动 Excel 后，Web 浏览器出现并按预期运行。