右键点击工作表标签删除时捕获单元格值的实现方法

嘿，我完全get到你的需求了——每次右键删除Start和End之间的机型工作表时，要把这个工作表里的特定单元格值给捕获下来对吧？这事儿用Excel的工作簿事件就能搞定，给你一套现成的实现方案：

1. 打开工作簿事件模块 #

按Alt+F11打开VBA编辑器，在左侧的项目窗口里找到你的工作簿，双击ThisWorkbook模块（就是那个带小书本图标的）。

2. 编写事件代码 #

把下面的代码粘贴进去，注释里已经写清楚了每个部分的作用，你可以根据自己的需求调整：

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    Dim startSheet As Worksheet
    Dim endSheet As Worksheet
    Dim isTargetSheet As Boolean
    Dim capturedValue As Variant
    
    ' 先定位Start和End这两个锚点工作表
    On Error Resume Next
    Set startSheet = ThisWorkbook.Worksheets("Start")
    Set endSheet = ThisWorkbook.Worksheets("End")
    On Error GoTo 0
    
    ' 检查锚点工作表是否存在，不存在就提示退出
    If startSheet Is Nothing Or endSheet Is Nothing Then
        MsgBox "找不到Start或End工作表，没法执行捕获操作哦！", vbExclamation
        Exit Sub
    End If
    
    ' 判断被删除的工作表是不是在Start和End之间
    isTargetSheet = False
    Dim ws As Worksheet
    Dim foundStartFlag As Boolean
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = startSheet.Name Then
            foundStartFlag = True ' 找到Start了，后面的都是目标候选
        ElseIf ws.Name = endSheet.Name Then
            Exit For ' 碰到End就停止遍历
        ElseIf foundStartFlag And ws.Name = Sh.Name Then
            isTargetSheet = True ' 确认被删的是目标区间里的表
            Exit For
        End If
    Next ws
    
    ' 如果是目标工作表，就捕获指定单元格的值（这里默认抓A1，你可以改）
    If isTargetSheet Then
        capturedValue = Sh.Range("A1").Value ' 把A1改成你要捕获的单元格，比如B2
        
        ' 下面是两种处理捕获值的方式，选一种或者自己加别的逻辑
        ' 方式1：弹出提示框显示捕获到的值
        MsgBox "你删除的工作表[" & Sh.Name & "]的目标单元格值为：" & capturedValue, vbInformation
        
        ' 方式2：把记录写到Start工作表的日志区（从A2开始追加）
        ' Dim lastRow As Long
        ' lastRow = startSheet.Cells(startSheet.Rows.Count, "A").End(xlUp).Row + 1
        ' startSheet.Cells(lastRow, "A").Value = Sh.Name ' 工作表名称
        ' startSheet.Cells(lastRow, "B").Value = capturedValue ' 捕获的值
        ' startSheet.Cells(lastRow, "C").Value = Now() ' 删除时间
    End If
End Sub

3. 关键说明与注意事项 #

• 事件触发时机：Workbook_SheetBeforeDelete是在工作表被删除的瞬间之前触发的，这时候工作表还没被删掉，所以能正常读取单元格值，完美适配你的需求。
• 区间判断：代码里通过遍历工作表顺序，确保只处理Start之后、End之前的工作表，不会误捕获其他工作表的删除操作。
• 保护锚点表：建议给Start和End工作表设置保护，右键工作表标签→保护工作表，取消勾选「删除工作表」权限，避免这两个锚点被误删导致逻辑失效。
• 保存格式：记得把工作簿保存为.xlsm格式（启用宏的工作簿），不然宏会丢失。

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