在MS Excel + VBA中检测WorkbookAddinInstall事件失败

Question

我似乎无法检测到Excel2013的WorkbookAddinInstall事件。

我已经创建了一个带有类模块(名为CExcelEvents)的Excel外接程序，该模块具有用于许多事件的简单子例程处理程序，如下所示

Private WithEvents XLApp As Application

Private Sub Class_Initialize()
    Set XLApp = Application
End Sub

Private Sub XLApp_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "NewWorkbook" & Wb.Name
End Sub

Private Sub XLApp_WorkbookAddinInstall(ByVal Wb As Workbook)
    MsgBox "AddinInstall"
End Sub


Private Sub XLApp_WorkbookAddinUninstall(ByVal Wb As Workbook)
    MsgBox "AddinUnInstall"
End Sub

Private Sub XLApp_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox "OpenWorkbook" & Wb.Name
End Sub

然后在我的插件工作簿的ThisWorkbook模块中

Private ExcelEvents As CExcelEvents

Private Sub Workbook_Open()
    Set ExcelEvents = New CExcelEvents
End Sub

除了XLApp_WorkbookAddinInstall之外，所有这些处理程序都可以工作。

有没有人知道我可能做错了什么？

Answer 1

似乎在安装 my addin之后安装的任何外接程序都会被检测到，但初始安装没有发出信号(这当然是我想要的)。

但是，在插件的ThisWorkbook模块中放置以下Subs确实提供了我需要的行为：

Private Sub Workbook_AddinInstall()
    MsgBox "An addin is being installed"
End Sub

Private Sub Workbook_AddinUninstall()
    MsgBox "An addin is being removed"
End Sub