退出Excel时自动删除指定工作表的VBA代码无法运行求助

我来帮你搞定这个问题，先拆解下你这段代码里的几个小问题，再给你调整好的可用版本：

原代码的问题点： #

• 工作簿对象用错了：你用了ActiveWorkbook，但这个事件是绑定在当前工作簿上的，应该用ThisWorkbook——不然如果同时打开了多个工作簿，很可能误操作其他文件。
• 遍历集合时直接删元素：For Each...Next遍历工作表集合的时候直接删除工作表，会导致集合结构混乱，容易触发循环异常。其实我们根本不需要遍历，直接判断工作表是否存在就行。
• 没处理唯一工作表的情况：如果Temp是这个工作簿里仅存的工作表，Excel不允许删除它，这种情况会直接报错，得提前做判断规避。

修复后的代码： #

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 删除名为Temp的工作表（若存在）
    Dim ws As Worksheet
    On Error Resume Next ' 临时忽略错误，用于判断工作表是否存在
    Set ws = ThisWorkbook.Worksheets("Temp")
    On Error GoTo 0 ' 恢复正常错误捕获
    
    If Not ws Is Nothing Then
        ' 检查是否是唯一的工作表
        If ThisWorkbook.Worksheets.Count > 1 Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        Else
            ' 如果是唯一工作表，提示用户（也可以选择取消关闭操作）
            MsgBox "无法删除Temp工作表，因为它是工作簿中唯一的工作表！", vbExclamation
            ' 要是想取消关闭操作，解开下面这行注释就行
            ' Cancel = True
        End If
    End If
End Sub

代码说明： #

1. 高效判断工作表是否存在：用On Error Resume Next尝试获取Temp工作表，之后检查ws是否为Nothing，比遍历所有工作表更高效。
2. 锁定目标工作簿：用ThisWorkbook确保操作的是包含这段代码的工作簿，不会影响其他打开的文件。
3. 规避删除唯一工作表的错误：先判断工作簿里的工作表数量，只有数量大于1时才执行删除，避免触发Excel的报错。
4. 正确管理提示框：删除前后准确设置Application.DisplayAlerts，确保后续操作能正常显示系统提示。

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