如何让Personal.XLSB的BeforeRightClick事件作用于非自身活动工作簿？

要实现这个需求，核心是用应用级事件监听——普通的工作表/工作簿事件只能监听自身文件的操作，没法捕获其他工作簿的右键动作。具体步骤如下：

1. 在Personal.XLSB中创建类模块 #

• 打开Personal.XLSB的VBA编辑器（按Alt+F11）
• 右键点击项目窗口里的Personal.XLSB，选择「插入」→「类模块」
• 在属性窗口里把类的名称改成AppEvents（默认是Class1，改个好记的名字）

然后在类模块里粘贴以下代码：

Public WithEvents xlApp As Application

Private Sub xlApp_WorkbookBeforeRightClick(ByVal Wb As Workbook, ByVal Target As Range, Cancel As Boolean)
    ' 判断当前右键的工作簿不是Personal.XLSB
    If Wb.Name <> "Personal.XLSB" Then
        ' 这里写你要执行的代码，比如弹窗测试
        MsgBox "右键点击了非Personal的工作簿：" & Wb.Name
        
        ' 如果需要取消默认右键菜单，把Cancel设为True
        ' Cancel = True
    End If
End Sub

2. 初始化事件监听 #

接下来要让这个类模块和Excel应用对象绑定，不然事件不会触发：

• 右键点击Personal.XLSB的项目窗口，插入「标准模块」（或者用已有的标准模块）
• 在标准模块里声明一个全局变量，用来保存类实例（必须是全局，不然程序运行后实例会被回收）：

Public appEvents As AppEvents

• 打开ThisWorkbook模块，在Workbook_Open事件里写初始化代码：

Private Sub Workbook_Open()
    Set appEvents = New AppEvents
    Set appEvents.xlApp = Application
End Sub

3. 测试生效 #

• 保存Personal.XLSB，关闭重新打开（或者手动运行Workbook_Open事件）
• 打开其他任意工作簿，右键点击工作表区域，就能触发你写的代码了

注意事项 #

• 确保Personal.XLSB是启用宏的状态，不然代码不会运行
• 如果修改了类模块或标准模块，记得保存后重启Excel让设置生效
• 如果你不需要监听所有工作簿的右键，还可以在事件里加更多判断（比如指定某些工作簿名称）

内容的提问来源于stack exchange，提问作者Cap'n Crunch