VBA - 打开任何工作簿时自动运行

Question

我想要一个 Sub 在我的个人。每次打开任何工作簿时都要运行的 XLAM 文件。以下内容有效，但仅在没有打开其他工作簿的情况下打开工作簿时。

Private Sub Workbook_Open()
MsgBox "Hello."
End Sub

打开其他工作簿后如何完成此操作？

Answer 1

根据Masoud的评论，这是一篇很棒的文章。您可以在那里找到所有详细信息，但很简单，这就是您所需要的：

Private WithEvents App As Application
Private Sub Workbook_Open()
    Set App = Application
End Sub
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "New Workbook: " & Wb.Name
End Sub

将代码放入此工作簿模块中。