重新打开时工作簿中的事件无效

Question

我有一个Excel宏，可以创建一个包含事件的新自定义工作簿。该宏还将.bas和.cls文件复制到新工作簿上，并将链接更改为新工作簿。

创建新工作簿时，包括事件在内的所有内容都可以正常工作。但当我关闭它并重新打开它时，事件就不再起作用了。我意识到新的工作簿价值已经丢失。由于我在工作表上有一个按钮，我添加了以下内容以尝试重新创建它，但没有运气：

Dim Newbook As New eventWB
Dim thisWB As Workbook
Set Newbook.Workbook = ActiveWorkbook
Set thisWB = Newbook.Workbook

// extra code to gather information

Answer 1

我相信我找到了解决问题的方法。我能够通过在我的工作簿类中添加额外的lin来使其工作：

Public WithEvents m_events As Application

每次打开工作簿时，我都会将其设置为：

Newbook.m_events = Application

它确实使事件再次发挥作用。希望这可以帮助任何有同样问题的人！再次感谢你！