XLAM加载项事件未关联新工作簿问题排查

我制作了一个测试XLAM加载项，代码如下：

标准模块代码 #

' 声明模块级变量存储Application对象
Public App As Application

' 初始化App变量的过程：
Sub StartAppEvents()
    Set App = Application
End Sub

ThisWorkbook代码 #

Private Sub Workbook_Open()
    StartAppEvents
End Sub

Private Sub App_WorkbookSheetChange(ByVal Wb As Workbook, ByVal Sh As Object, ByVal Target As Range)
   MsgBox "App_WorksheetChange"
End Sub

打开新空白工作簿并添加该加载项后，事件未触发，加载项的事件无法关联到新工作簿。

已尝试的解决方法 #

• 在App声明中添加WithEvents，但Excel不允许标准模块使用WithEvents，因此将代码移到Class1中，却出现报错。
• 给StartAppEvents添加Public关键字，将类的Instancing参数从默认Private改为PublicNotCreatable，均未解决报错问题。
• 尝试Tim Williams提出的新建事件对象方案，仍然未生效。

请问这是为什么？我哪里操作有误？

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