Excel启动时Workbook_Open()控制工作表显隐的闪屏问题求助

问题根源 #

Excel会记住上次关闭时的活动工作表，启动时会优先加载并显示该工作表，之后才执行Workbook_Open事件代码。这就导致如果关闭时Working Sheet处于活动状态，即使Workbook_Open里设置了隐藏，仍会先短暂显示再隐藏，出现闪屏现象。

有效修复方案 #

1. 完善Workbook_BeforeClose事件 #

关闭工作簿时，不仅激活LOGIN工作表，还要强制保存工作簿，让Excel记住下次启动的默认活动表为LOGIN：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 禁用屏幕更新，避免切换工作表时的闪烁
    Application.ScreenUpdating = False
    
    ' 激活LOGIN工作表
    Worksheets("LOGIN").Activate
    
    ' 强制保存工作簿，记录当前活动表状态
    Me.Save
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

2. 优化Workbook_Open事件 #

打开工作簿时，先锁定屏幕更新与事件触发，优先激活LOGIN再隐藏Working Sheet，进一步避免闪屏：

Private Sub Workbook_Open()
    ' 禁用屏幕更新和事件触发，防止不必要的界面刷新
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 先激活LOGIN工作表
    Worksheets("LOGIN").Activate
    ' 隐藏Working Sheet
    Worksheets("Working Sheet").Visible = xlSheetHidden
    
    ' 恢复事件触发和屏幕更新
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

额外建议 #

• 若Working Sheet无需用户手动取消隐藏，可将可见性设为xlSheetVeryHidden（比xlSheetHidden更安全，用户无法通过右键菜单取消隐藏），修改代码为：Worksheets("Working Sheet").Visible = xlSheetVeryHidden
• 确保工作簿已启用宏，否则上述代码无法生效。

内容的提问来源于stack exchange，提问作者J-Pierre Avognon