如何在vba.xlsm中监听任意Excel工作簿的保存事件？

问题场景 #

我在本地磁盘C:\xls文件夹中存放了名为vba.xlsm的文件，已将其设置为Excel启动时自动打开，每次打开或新建Excel工作簿时该文件都会自动启动。我需要让vba.xlsm中的代码在任意工作簿保存时执行，但使用Workbook_BeforeSave和Workbook_AfterSave事件时，这些事件仅在vba.xlsm自身保存时触发，无法监听其他工作簿的保存事件。

已尝试的代码 #

类模块saveEvent代码 #

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "saveEvent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public WithEvents appevent As Application
Attribute appevent.VB_VarHelpID = -1
    
Private Sub appevent_WorkbookAfterSave(ByVal Wb As Workbook, ByVal Success As Boolean)
   MsgBox Wb.Name & "Saved"
End Sub

Private Sub appevent_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
   MsgBox Wb.Name & "Before Save"
End Sub

ThisWorkbook代码 #

Private Sub Workbook_Open()
  Dim objSaveEvent As New saveEvent
  Set objSaveEvent.appevent = Application
End Sub

问题原因 #

现有代码的核心问题是：类实例objSaveEvent是局部变量，Workbook_Open过程执行完毕后，该变量会被VBA的垃圾回收机制销毁，导致Application级别的事件监听直接失效，自然无法捕获其他工作簿的保存操作。

修正方案 #

步骤1：保留类模块代码不变 #

无需修改saveEvent类模块的事件绑定代码，它的逻辑是正确的。

步骤2：修改ThisWorkbook代码，使用模块级变量 #

将类实例声明为ThisWorkbook的模块级变量，确保它在Excel运行期间始终存在：

' 模块级变量，放在ThisWorkbook代码的最顶部
Private objSaveEvent As saveEvent

Private Sub Workbook_Open()
    Set objSaveEvent = New saveEvent
    Set objSaveEvent.appevent = Application
End Sub

步骤3：可选 - 添加关闭时的资源释放（规范操作） #

为了避免潜在的内存泄漏，可在vba.xlsm关闭时手动释放资源：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set objSaveEvent.appevent = Nothing
    Set objSaveEvent = Nothing
End Sub

效果说明 #

• 模块级变量objSaveEvent会在vba.xlsm打开期间持续存在，不会被销毁，因此能稳定监听Application级别的所有工作簿保存事件
• appevent_WorkbookBeforeSave和appevent_WorkbookAfterSave会触发在所有工作簿的保存操作前后，包括新建工作簿、本地打开的其他工作簿
• 测试时新建空白工作簿并保存，会弹出对应提示框，说明监听生效

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