如何防止Excel隐藏状态栏后最小化/恢复时重新显示？

这个问题我之前踩过坑——Excel在窗口状态切换（比如最小化再还原）时，会自动重置状态栏的显示状态，单纯在打开时设置一次Application.DisplayStatusBar = False确实顶不住。不过有几个靠谱的办法能搞定：

方法1：利用窗口大小变化事件强制隐藏 #

Excel的窗口最小化再还原会触发Workbook_WindowResize事件，我们可以在这个事件里重复设置状态栏隐藏，相当于每次窗口状态变了就“再锁一次”。

具体操作：

1. 右键Excel工作簿左上角的小图标，选择「查看代码」
2. 在弹出的VBA编辑器里，确保左侧选中的是ThisWorkbook模块
3. 粘贴下面的代码：

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    ' 每次窗口大小/状态变化时，强制隐藏状态栏
    Application.DisplayStatusBar = False
End Sub

方法2：结合激活事件+关闭恢复（更完善） #

如果还担心切换到其他工作簿再切回来时状态栏又出现，或者希望关闭当前工作簿后恢复默认状态栏（不影响其他工作簿），可以把激活事件和关闭事件也加上：

' 工作簿激活时隐藏状态栏
Private Sub Workbook_Activate()
    Application.DisplayStatusBar = False
End Sub

' 窗口状态变化时强制隐藏
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    Application.DisplayStatusBar = False
End Sub

' 关闭工作簿前恢复状态栏默认显示，避免影响其他工作簿
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayStatusBar = True
End Sub

注意事项 #

• 这些代码必须放在ThisWorkbook模块里，普通模块不会触发工作簿级别的事件
• 保存工作簿时要选择「Excel启用宏的工作簿（.xlsm）」格式，不然宏会失效

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