如何中断Excel Workbook_SheetDeactivate事件以取消工作表切换操作

因为Excel VBA的Workbook_SheetDeactivate事件本身未提供取消切换的内置参数，因此需要通过全局变量存储状态、配合Workbook_SheetActivate事件做回退操作来实现需求，具体实现步骤如下：

实现步骤 #

步骤1：添加全局变量声明 #

按Alt+F11打开VBA编辑器，插入一个标准模块，在模块最顶部粘贴以下代码：

' 标记是否取消工作表切换
Public blnCancelSheetSwitch As Boolean
' 存储待切回的Payday工作表对象
Public objPaydaySheet As Worksheet

步骤2：编写工作簿事件代码 #

在VBA编辑器的工程资源管理器中双击ThisWorkbook对象，粘贴以下代码到代码窗口中：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ' 仅对Payday类工作表生效
    If InStr(1, Sh.Name, "Payday", vbTextCompare) = 0 Then Exit Sub
    
    ' 弹出确认弹窗，此时用户仍可看到当前Payday表内容
    Dim response As VbMsgBoxResult
    response = MsgBox("您确定要保存本次内容吗？", vbYesNo + vbQuestion, "切换工作表确认")
    
    Select Case response
        Case vbNo
            ' 标记需要取消切换，记录当前Payday表
            blnCancelSheetSwitch = True
            Set objPaydaySheet = Sh
        Case vbYes
            ' 执行保存子程序
            Call SavePayday
            blnCancelSheetSwitch = False
    End Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 如果标记了取消切换，切回原Payday表
    If blnCancelSheetSwitch = True Then
        ' 临时禁用事件避免循环触发
        Application.EnableEvents = False
        On Error GoTo ErrHandler
        objPaydaySheet.Activate
        ' 重置标记
        blnCancelSheetSwitch = False
        Set objPaydaySheet = Nothing
ErrHandler:
        ' 无论是否出错都恢复事件触发
        Application.EnableEvents = True
        If Err.Number <> 0 Then MsgBox "切换失败：" & Err.Description, vbCritical
    End If
End Sub

注意事项 #

• 如果你的Payday工作表命名规则不是名称包含"Payday"，可以自行修改If InStr(1, Sh.Name, "Payday", vbTextCompare) = 0 Then Exit Sub这行的判断逻辑
• 建议在SavePayday子程序中也添加必要的错误处理，避免保存失败时出现异常
• 如果运行代码后发现所有事件失效，可在VBA编辑器的立即窗口输入Application.EnableEvents = True按回车恢复

内容的提问来源于stack exchange，提问作者Shawn V. Wilson