XLAM加载项中SheetChange事件未触发，求问题排查方案

问题排查及修复方案 #

1. 确认加载项已正确启用 #

• 打开Excel选项 → 加载项 → 管理「Excel加载项」→ 转到，确保你的XLAM文件已勾选启用。
• 若加载项被禁用，需先在「禁用项目」中恢复，再重新启用。

2. 修正事件绑定的代码位置 #

加载项中监控全局Application事件，不能放在ThisWorkbook模块，正确操作如下：

1. 插入类模块：右键VBA工程 → 插入 → 类模块，将类模块名称改为AppEvents（在属性窗口修改）。
2. 在类模块中写入代码：

Private WithEvents mApp As Application

Private Sub Class_Initialize()
    Set mApp = Application
End Sub

Private Sub mApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox "Sheet change detected"
End Sub

3. 在加载项的ThisWorkbook模块中声明类实例并初始化：

Private appEvent As AppEvents

Private Sub Workbook_Open()
    Set appEvent = New AppEvents
End Sub

3. 检查宏安全设置 #

• 确保Excel宏安全级别设置为「启用所有宏」或「启用签署的宏」，同时勾选「信任对VBA工程对象模型的访问」（路径：信任中心 → 宏设置）。

4. 验证加载项启动事件是否正常 #

在ThisWorkbook的Workbook_Open中添加测试代码，确认加载项启动时事件触发：

Private Sub Workbook_Open()
    MsgBox "Add-in loaded successfully"
    Set appEvent = New AppEvents
End Sub

若未弹出提示，说明加载项启动事件未触发，需检查加载项路径是否在Excel信任目录，或重新保存加载项文件。

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