使用Excel VBA WinHttpRequest在Windows 10中的安全通道支持中出错

使用WinHttpRequest检查是否可以连接到远程服务器。 代码在早期运行，但最近出现以下错误：

“安全通道支持中出现错误”

在Excel 2016 32位Windows 10中测试

尽管存在类似问题，但似乎TLS 1.2未启用。但是，在Windows 10中也表示默认情况下已启用。没有得到确切的位置如何检查它是否被启用或是否是问题是因为这一点

预期的输出为连接应成功，但出现错误 “安全通道支持中出现错误”

    Dim request As New WinHttpRequest

    On Error GoTo ConnectionError
    request.Open "GET", url
    request.setRequestHeader "Authorization", "Basic " + sEncryptedPassword
    request.Send
    IsConnectionAvailable = request.Status