如何通过VBA绕过网站安全证书警告？代码报错求助

这个报错的原因很明确：当网站直接跳过证书警告加载时，页面里根本不存在overridelink这个元素，你的代码硬要调用它的Click方法，自然会触发“对象变量或With块变量未设置”的错误（也就是Error 91）。

给你两个核心解决思路，先从代码层面修复，再补充系统设置的验证方法：

1. 修改代码：先判断元素是否存在再执行点击 #

在代码里添加元素存在性检查，找不到元素时就跳过点击逻辑，这样不管有没有证书警告，代码都能正常运行。修改后的代码如下：

Sub Certificate()
    Dim IE As Object
    Dim overrideLink As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate ("Website URL")
        
        ' 更严谨的页面加载等待（同时检查ReadyState和Busy状态）
        While .ReadyState <> 4 Or .Busy
            DoEvents
        Wend
        
        ' 可选：给页面留几秒加载元素的时间（视网站加载速度调整）
        Application.Wait (Now + TimeValue("0:00:05"))
        
        ' 尝试获取覆盖链接，捕获“找不到元素”的错误
        On Error Resume Next
        Set overrideLink = .document.getElementsByName("overridelink").Item(0)
        On Error GoTo 0
        
        ' 只有找到元素时才执行点击
        If Not overrideLink Is Nothing Then
            overrideLink.Click
            ' 点击后再次等待跳转页面加载完成
            While .ReadyState <> 4 Or .Busy
                DoEvents
            Wend
        End If
    End With
End Sub

这里的关键是用On Error Resume Next临时跳过找不到元素的错误，之后通过If Not overrideLink Is Nothing判断元素是否存在，避免空对象调用方法。

2. 验证系统设置是否真的生效 #

你提到已经把网站加入可信站点并取消警告，但还是偶尔出现证书提示？可能是以下原因：

• 可信站点的安全级别设置没调整：打开Internet选项 → 安全 → 可信站点 → 自定义级别，确保“对未标记为安全的ActiveX控件初始化并执行脚本”等相关选项设置为启用（根据网站需求调整）。
• 组策略限制：如果是企业环境，可能管理员通过组策略强制保留证书警告，这种情况下个人设置会被覆盖，需要联系IT部门调整。
• 证书本身问题：如果网站的证书是自签名或过期的，即使加入可信站点，IE可能仍会弹出警告，这时候可以考虑手动安装证书到本地信任根证书颁发机构。

额外提示：慎用注册表绕过证书检查 #

如果上述方法都无效，你可以通过修改注册表让IE自动忽略所有证书错误（注意：这会降低浏览器安全性，仅在测试环境或完全信任的网站使用）：

1. 打开注册表编辑器（regedit）
2. 导航到HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
3. 新建DWORD值，命名为IgnoreCertErrors，设置值为1
4. 重启IE后生效

内容的提问来源于stack exchange，提问作者user9765734