检测工作表的重命名或删除

有没有一种方法来检测用户

• 重命名，或
• 删除工作表？

如果发生这些事件之一，我想运行一些代码。

我所尝试过的

我的工具使用了大量的事件处理程序，所以我想到的一件事就是在每个Worksheet_Change遍历所有Worksheet_Change ，但是我不认为这是最好的方法。

Answer 1

这种方法在ThisWorkbook模块下。

 Public shArray1 As Variant Public shArray2 As Variant Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Dim lngCnt As Long Dim strMsg As String Dim strSht Dim vErr Dim strOut As String 'get all sheet names efficiently in a 1D array ActiveWorkbook.Names.Add "shtNames", "=RIGHT(GET.WORKBOOK(1),LEN(GET.WORKBOOK(1))-FIND(""]"",GET.WORKBOOK(1)))" shArray2 = Application.Transpose([INDEX(shtNames,)]) strSht = Application.Transpose(Application.Index(shArray2, , 1)) 'exit here if first time code is run If IsEmpty(shArray1) Then shArray1 = shArray2 Exit Sub End If `check each sheet name still exists as is For lngCnt = 1 To UBound(shArray1) vErr = Application.Match(shArray1(lngCnt, 1), strSht, 0) If IsError(vErr) Then strOut = strOut & shArray1(lngCnt, 1) & vbNewLine vErr = Empty End If Next shArray1 = Application.Transpose([INDEX(shtNames,)]) If Len(strOut) > 0 Then MsgBox strOut, vbCritical, "These sheets are gone or renamed" End Sub