vba excel internet explorer禁用警告https消息

Question

加载网站时，我收到以下安全警告：

是否要仅查看已安全投放的网页内容。

这个弹出窗口会导致我的代码出错，有没有办法用vba禁用它？

感谢。

这是代码

    Sub Start()

Dim ie As New InternetExplorer
Dim doc As HTMLDocument


ie.Visible = True

ie.navigate ("https://mywebsite.com")
ie.FullScreen = True
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document



doc.getElementById("navMenu2").Click

Answer 1

警告的reason表示您正在尝试加载非SSL（http协议）内容的SSL安全（https协议）页面上。

解决此问题的最佳方法是：

1. 使用http代替https - ie.navigate ("http://mywebsite.com")
访问您的网站
2. 修复网站中的安全问题（访问https时不要加载不安全的内容）

如果您只想修复它以进行测试，可以change the settings in your test browser：

  

  
1. 转到工具 - ＆gt;互联网选项 - ＆gt;安全
  
2. 选择“安全”标签 - ＆gt;单击“自定义级别”按钮
  
3. 在“其他”部分中，将“显示混合内容”更改为“启用”。