Excel 2016状态栏背景色异常修复：如何获取状态栏hwnd？

嘿，我懂你遇到的糟心事：在Colorful主题下用VBA设置自定义状态栏文本时，背景突然变成深绿色，深色文本根本看不清，还不能改Office主题。你的API思路是对的，核心卡点就是拿到Excel状态栏的句柄（hwnd），下面给你完整的解决方案和替代方案：

一、补全API声明，搞定状态栏句柄 #

要定位Excel的状态栏，得用FindWindowEx来找它——状态栏的系统类名是msctls_statusbar32。先把这些API声明加上：

#If VBA7 Then
    Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Public Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
#Else
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
#End If

然后写个专门拿状态栏句柄的函数：

#If VBA7 Then
    Public Function GetExcelStatusBarHwnd() As LongPtr
        Dim xlHwnd As LongPtr
        xlHwnd = Application.hwnd '先获取Excel主窗口句柄
        '定位主窗口下的状态栏控件
        GetExcelStatusBarHwnd = FindWindowEx(xlHwnd, 0&, "msctls_statusbar32", vbNullString)
    End Function
#Else
    Public Function GetExcelStatusBarHwnd() As Long
        Dim xlHwnd As Long
        xlHwnd = Application.hwnd '先获取Excel主窗口句柄
        '定位主窗口下的状态栏控件
        GetExcelStatusBarHwnd = FindWindowEx(xlHwnd, 0&, "msctls_statusbar32", vbNullString)
    End Function
#End If

二、修正原有代码，测试生效 #

注意你原代码里的COLOR_BTNFACE常量定义错了——系统颜色索引是&HF（对应vbButtonFace），而不是&H8000000F（那是vbButtonFace的颜色值）。我帮你修正后，把测试过程改成用新的句柄函数：

Private Const CCM_FIRST As Long = &H2000 '通用控件消息起始值
Private Const CCM_SETBKCOLOR As Long = (CCM_FIRST + 1)
Private Const PBM_SETBKCOLOR As Long = CCM_SETBKCOLOR '状态栏兼容进度条背景色消息
Private Const COLOR_BTNFACE_INDEX As Long = &HF 'vbButtonFace对应的系统颜色索引
Private Const COLOR_BTNFACE As Long = &H8000000F 'vbButtonFace的颜色值

#If VBA7 Then
    Public Sub SetStatusBackColour(hwndStatBar As LongPtr, ByVal clrref As Long)
        Call SendMessage(hwndStatBar, PBM_SETBKCOLOR, 0&, ByVal clrref)
    End Sub
#Else
    Public Sub SetStatusBackColour(hwndStatBar As Long, ByVal clrref As Long)
        Call SendMessage(hwndStatBar, PBM_SETBKCOLOR, 0&, ByVal clrref)
    End Sub
#End If

Public Function EvalCol(ByVal inCol As Long) As Long
    ' 将系统颜色值转换为实际RGB颜色
    If ((inCol And &HFFFFFF00) = &H80000000) Then
        EvalCol = GetSysColor(inCol And &HFF)
    Else
        EvalCol = inCol
    End If
End Function

Private Sub Test()
    Dim statusBarHwnd As Variant
    #If VBA7 Then
        statusBarHwnd = GetExcelStatusBarHwnd()
    #Else
        statusBarHwnd = GetExcelStatusBarHwnd()
    #End If
    
    If statusBarHwnd <> 0 Then
        ' 设置状态栏背景为系统按钮面颜色（匹配主题的vbButtonFace）
        Call SetStatusBackColour(statusBarHwnd, EvalCol(vbButtonFace))
        ' 测试自定义文本
        Application.StatusBar = "自定义状态栏文本 - 测试成功！"
    Else
        MsgBox "没找到Excel状态栏的句柄，可能是版本或权限问题~", vbExclamation
    End If
End Sub

三、几个关键提醒 #

• 别用管理员权限开Excel：高权限可能导致句柄获取失败，用普通权限运行即可。
• 版本兼容没问题：代码同时支持32位和64位Excel，无需修改。
• 颜色值要对应：系统颜色和RGB颜色的转换靠EvalCol函数，别直接传系统颜色常量给API。

四、如果API方法不好使，试试这些替代方案 #

方案1：直接用浅色文本 #

既然背景是深绿，把状态栏文本改成白色就能解决可读性问题：

' 示例：设置白色文本（通过API设置更精准，这里给个简单写法）
Application.StatusBar = "自定义状态栏文本"
' 若要更精准，可添加SB_SETTEXT消息设置文本颜色，需要额外API声明，这里省略

方案2：改用任务栏通知 #

如果不是非要在状态栏显示，用Excel的任务栏进度条或通知更省心，还不会触发背景色问题：

' 设置任务栏进度（比如50%）
Application.TaskbarProgress.ProgressValue = 50
Application.TaskbarProgress.ProgressState = msoTaskbarProgressNormal

' 用完恢复默认状态栏
Application.StatusBar = False

方案3：自己做个浮动状态栏 #

创建一个无边框的窗体，放在Excel窗口底部，完全控制背景和文本颜色：

Private Sub ShowCustomStatusBar()
    Dim frm As Object
    Set frm = CreateObject("Forms.Form.1")
    
    With frm
        .BorderStyle = 0 ' 去掉边框
        .Width = Application.Width
        .Height = 20 ' 和原生状态栏高度匹配
        .Top = Application.Height - .Height ' 贴在窗口底部
        .Left = 0
        .BackColor = vbButtonFace ' 自定义背景色
        .ForeColor = vbBlack ' 自定义文本颜色
        .Caption = "这是我的自定义状态栏"
        .Show vbModeless ' 非模态，不影响操作Excel
    End With
End Sub

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