使用Excel VBA WinHttpRequest的Windows 10中的安全通道支持中发生错误

Question

使用WinHttpRequest检查是否能够连接到远程服务器。 代码之前工作正常，但是最近出现以下错误：

  

“安全通道支持发生错误”

在Windows 10中的Excel 2016 32位中进行了测试。

尽管发生了类似的问题，但似乎未启用TLS 1.2。但是，也指出在Windows 10中默认情况下启用它。因为这个原因，无法确切地知道如何检查它是否已启用。

VBA: An error occurred in the secure channel support https://support.microsoft.com/en-in/help/4040243/how-to-enable-tls-1-2-for-configuration-manager https://www.itnota.com/enabling-tls-1-2-default-security-protocol-windows-servers/

 
    Dim request As New WinHttpRequest

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

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