我碰到过不少类似的场景，你说设置WINHTTP_OPTION_SECURE_PROTOCOLS没生效，大概率是代码的设置时机或者对象版本不对。下面给你几个无需修改注册表的可行方案，按易用性排序：

方案1：正确配置WinHttpRequest对象 #

这是最直接的方法，核心要在调用Open方法之前设置安全协议选项，并且使用支持TLS 1.2的WinHttp版本（5.1及以上）。

完整代码示例：

Sub CallTLS12API()
    ' 定义TLS 1.2对应的常量（十六进制&H800等价于十进制2048）
    Const WINHTTP_OPTION_SECURE_PROTOCOLS As Long = &H800
    Dim http As Object
    
    ' 明确使用WinHttp.WinHttpRequest.5.1版本
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 关键步骤：先设置安全协议，再打开请求
    http.Option(WINHTTP_OPTION_SECURE_PROTOCOLS) = WINHTTP_OPTION_SECURE_PROTOCOLS
    
    ' 替换为你的API实际地址
    http.Open "GET", "https://your-tls12-api-endpoint.com", False
    http.Send
    
    ' 输出响应结果到VBA调试窗口
    Debug.Print http.ResponseText
    
    Set http = Nothing
End Sub

之前设置失效的常见原因：如果你的代码是在Open之后才配置Option，这个设置不会生效，必须在初始化请求前完成配置。

方案2：使用MSXML2.ServerXMLHTTP.6.0 #

MSXML 6.0原生支持TLS 1.2，部分环境下默认启用，但显式设置更稳妥。注意必须使用MSXML2.ServerXMLHTTP.6.0版本（旧版本如3.0不支持TLS 1.2）。

代码示例：

Sub CallTLS12APIWithMSXML()
    ' TLS 1.2对应的常量值
    Const SXH_OPTION_SECURE_PROTOCOLS As Long = 3072
    Dim xmlhttp As Object
    
    ' 明确使用6.0版本的XMLHTTP对象
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' 强制启用TLS 1.2协议
    xmlhttp.SetOption SXH_OPTION_SECURE_PROTOCOLS, SXH_OPTION_SECURE_PROTOCOLS
    
    xmlhttp.Open "GET", "https://your-tls12-api-endpoint.com", False
    xmlhttp.Send
    
    Debug.Print xmlhttp.ResponseText
    
    Set xmlhttp = Nothing
End Sub

方案3：通过Windows API设置进程级TLS 1.2（高级） #

如果上面两种方法都不行，可以尝试通过Crypt32.dll的API为当前Excel进程强制启用TLS 1.2，这个设置仅在当前Excel会话生效，关闭后自动恢复，完全无需修改注册表。

代码示例（兼容32/64位Office）：

#If VBA7 Then
    Private Declare PtrSafe Function CryptSetOIDFunctionValue Lib "crypt32.dll" ( _
        ByVal dwEncodingType As Long, _
        ByVal pszFuncName As String, _
        ByVal pszOID As String, _
        ByVal dwValueType As Long, _
        ByVal dwValue As Long _
    ) As Boolean
#Else
    Private Declare Function CryptSetOIDFunctionValue Lib "crypt32.dll" ( _
        ByVal dwEncodingType As Long, _
        ByVal pszFuncName As String, _
        ByVal pszOID As String, _
        ByVal dwValueType As Long, _
        ByVal dwValue As Long _
    ) As Boolean
#End If

Private Const X509_ASN_ENCODING As Long = &H1
Private Const PKCS_7_ASN_ENCODING As Long = &H10000

Sub ForceTLS12ForExcelProcess()
    Dim result As Boolean
    ' 设置进程默认安全协议为TLS 1.2
    result = CryptSetOIDFunctionValue( _
        X509_ASN_ENCODING Or PKCS_7_ASN_ENCODING, _
        "CertVerifyCertificateChainPolicy", _
        "1.3.6.1.4.1.311.44.1.2", ' TLS 1.2的官方OID标识
        0, _
        &H800 ' TLS 1.2对应的标志位
    )
    
    If result Then
        Debug.Print "已为当前Excel进程启用TLS 1.2"
    Else
        Debug.Print "启用TLS 1.2失败，错误码：" & Err.LastDllError
    End If
End Sub

调用这个Sub后，再执行你的API请求代码即可生效。

常见排查点 #

• 确认Office版本兼容性：Office 2013及以上版本默认支持TLS 1.2，2010版本需要安装KB3140245补丁。
• 验证API的TLS版本：可以用浏览器或curl工具确认目标API确实只支持TLS 1.2。
• 避免使用旧版HTTP对象：比如无版本号的Microsoft.XMLHTTP，这类对象不支持TLS 1.2。

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