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

出现此警告的原因是您正处于一个ssl安全(https协议)页面上，该页面正试图加载非ssl (http协议)内容。

解决这个问题的最好方法是:

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

如果你只是想为了测试的目的而修复它，你可以改变你的测试浏览器中的设置:

1. 转到工具-> Internet选项->安全
2. 选择"安全"选项卡->点击"自定义级别"按钮
3. 在"杂项"部分将"显示混合内容"更改为启用。