禁用Excel的Save功能保留Save As，解决隐藏工作表自动显示问题

问题分析 #

你提供的VBA代码会拦截所有保存操作（包括Save和Save As），取消保存时Excel的视图刷新机制可能导致原本隐藏的工作表意外显示。核心问题是没有区分「直接保存」和「另存为」操作，且未处理取消保存后的视图状态。

解决方案 #

修改Workbook_BeforeSave事件代码，通过SaveUI参数区分两种操作：

• SaveUI = True：用户执行的是「Save（直接保存）」操作，需要拦截
• SaveUI = False：用户执行的是「Save As（另存为）」操作，允许执行

同时在拦截直接保存后，重新恢复原本隐藏的工作表状态，彻底避免视图异常。

修正后的VBA代码 #

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
    ' 仅拦截直接保存操作（SaveUI=True）
    If SaveUI Then
        MsgBox "无法直接保存此工作簿，请使用「另存为」功能。"
        Cancel = True
        
        ' 重新隐藏所有原本设置为隐藏的工作表
        Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            ' 根据工作表原本的隐藏状态恢复
            If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
                ws.Visible = ws.Visible
            End If
        Next ws
    End If
    ' SaveAs操作（SaveUI=False）不做拦截，正常执行
End Sub

代码说明 #

1. 区分操作类型：通过SaveUI参数精准判断操作类型，只拦截直接保存
2. 恢复隐藏工作表：遍历所有工作表，将原本隐藏的表重新设置为原隐藏状态，抵消Excel视图刷新的影响
3. 保留Save As功能：不对SaveUI=False的另存为操作做任何拦截，确保功能正常使用

注意事项 #

• 代码必须放在ThisWorkbook模块中（不可放在普通工作表模块）
• 工作簿需启用宏，否则代码无法生效
• 对xlSheetVeryHidden类型的隐藏工作表，此代码也能正确恢复状态

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