工作簿中的事件在重新打开时不起作用

我有一个Excelmacros，用事件创build一个新的自定义工作簿。 该macros还将.bas和.cls文件复制到新的工作簿并将链接更改为新的工作簿。

当新的工作簿被创build时，包括事件在内的所有事情都能正常工作。 但是，当我closures并重新打开它，事件不再工作。 我意识到新的工作簿价值已经丢失。 由于我在工作表上有一个button，我添加了以下内容来尝试重新创build它，但没有运气：

Dim Newbook As New eventWB Dim thisWB As Workbook Set Newbook.Workbook = ActiveWorkbook Set thisWB = Newbook.Workbook // extra code to gather information 

Answer 1

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

 Public WithEvents m_events As Application 

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

 Newbook.m_events = Application 

而且这个事件再次发生了。 希望这可以帮助任何人有同样的问题！ 再次感谢你！