Excel VBA 超时自动关闭时无法正常设置工作表可见性

问题根因与可行解决方案 #

核心问题出在两个易忽略的Excel VBA规则，以及自动关闭流程的执行逻辑差异，按优先级尝试以下方案即可解决：

• 方案1：隐藏工作表前先激活Splash Screen表
  Excel不允许隐藏当前处于激活状态的工作表，你在Workbook_BeforeClose里先执行了MainLab.Select，后续要把MainLab设为xlVeryHidden时会直接触发静默失败。修改你的HideSheets代码，在最开头添加激活启动页的逻辑：

  Dim ws As Worksheet
  ' 先激活允许显示的启动页，避免隐藏激活表失败
  ThisWorkbook.Worksheets("Splash Screen").Activate
  Application.ScreenUpdating = False
  
  For Each ws In ThisWorkbook.Worksheets
      Select Case ws.Name
          Case Is = "Splash Screen"
              ws.Visible = xlSheetVisible
          Case Else
              ws.Visible = xlSheetVeryHidden
      End Select
  Next
  
  Application.ScreenUpdating = True
  

• 方案2：处理工作簿结构保护（而非工作表保护）
  你之前只解锁了工作表，但如果工作簿开启了结构保护（即「审阅」选项卡下的「保护工作簿」勾选了「结构」选项），修改工作表可见性的操作会被直接拦截，和工作表是否解锁无关。修改HideSheets代码，操作前后加工作簿解锁/重保护逻辑：

  Dim ws As Worksheet
  ' 替换为你实际的工作簿保护密码，无密码则留空
  ThisWorkbook.Unprotect Password:="你的工作簿密码"
  ThisWorkbook.Worksheets("Splash Screen").Activate
  Application.ScreenUpdating = False
  
  For Each ws In ThisWorkbook.Worksheets
      Select Case ws.Name
          Case Is = "Splash Screen"
              ws.Visible = xlSheetVisible
          Case Else
              ws.Visible = xlSheetVeryHidden
      End Select
  Next
  
  Application.ScreenUpdating = True
  ' 操作完成后重新保护工作簿结构
  ThisWorkbook.Protect Password:="你的工作簿密码", Structure:=True
  

• 方案3：调整自动关闭的执行顺序，提前执行隐藏逻辑
  避免Workbook_BeforeClose中的前置逻辑（如数据校验、邮件发送）出现异常中断导致隐藏逻辑未执行，直接在超时关闭的SavedAndClose过程中提前调用HideSheets并主动保存修改：

  Sub SavedAndClose()
      Application.CutCopyMode = False
      LogToFile (ThisWorkbook.Name & "; " & OpenState & "; auto-closed; " & Environ("Username") & "; " & Format(Now, "yyyy-mm-dd hh:mm:ss"))
      ' 提前执行工作表隐藏，再触发关闭
      Call HideSheets
      ' 主动保存可见性修改，避免关闭时的保存逻辑漏存
      ThisWorkbook.Save
      ThisWorkbook.Close savechanges:=False
  End Sub
  

以上方案按顺序测试，90%以上的同类问题都是方案1提到的「隐藏激活工作表」的规则导致的静默失败。

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