如何在Module的Sub Mail_it()中调用ThisWorkbook的私有事件过程

嘿，这个需求我之前处理过，咱们直接说解决方案——因为VBA里私有过程（带Private修饰）的作用域仅限所在模块内部，所以你没法直接在普通Module的Mail_it()里调用ThisWorkbook里的Private Sub Workbook_AfterSave()，得换个思路来实现。

最优方案：抽离核心逻辑到公共过程（推荐） #

最规范且易维护的做法是把Workbook_AfterSave里的核心业务代码抽出来，做成一个公共过程，让原事件和Mail_it()都调用这个公共过程。具体步骤如下：

1. 修改ThisWorkbook模块的代码：

' 原来的私有事件过程，现在只做触发逻辑
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ' 调用抽离出来的公共处理过程
    HandleAfterSave Success
End Sub

' 公共过程，存放原来事件里的核心代码，允许其他模块访问
Public Sub HandleAfterSave(ByVal SaveSuccess As Boolean)
    ' ========== 这里写你原来在Workbook_AfterSave里的所有代码 ==========
    If SaveSuccess Then
        MsgBox "文件保存成功，开始执行后续逻辑..."
    Else
        MsgBox "文件保存失败，终止后续操作..."
    End If
    ' 你的其他业务代码，比如发送邮件的前置处理、数据校验等等
    ' ===============================================================
End Sub

2. 在普通Module的Mail_it()宏里调用公共过程：

Sub Mail_it()
    ' 这里写你Mail_it宏原本的代码，比如准备邮件、读取数据等等
    
    ' 调用ThisWorkbook里的公共处理过程，根据你的需求传入Success参数（True/False）
    ThisWorkbook.HandleAfterSave True ' 示例：模拟保存成功的场景，传入True
    
    ' 继续Mail_it的后续代码
End Sub

临时变通方案（不推荐，仅应急用） #

如果不想大改现有代码，也可以在ThisWorkbook里加一个公共的中转过程，用来触发私有事件：

' 在ThisWorkbook模块添加这个公共中转过程
Public Sub TriggerAfterSaveEvent(ByVal Success As Boolean)
    ' 直接调用私有事件过程
    Workbook_AfterSave Success
End Sub

然后在Module里调用：

Sub Mail_it()
    ' ...你的原有代码...
    ThisWorkbook.TriggerAfterSaveEvent True
    ' ...后续代码...
End Sub

⚠️ 注意：这个方案只是临时替代，因为私有事件原本是Excel自动触发的，手动调用可能会忽略一些Excel内部的上下文，而且代码复用性差，长期维护推荐用第一种方案。

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