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

Question

我希望每次打开任何工作簿时都运行 PERSONAL.XLAM 文件中的 Sub。以下方法有效，但仅在没有打开其他工作簿的情况下打开工作簿时有效。

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

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

Answer 1

根据 comment来自马苏德，this is a great article 。您可以在那里找到所有详细信息，但简单地说，这就是您所需要的:

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

将代码放入您的 ThisWorkbook 模块中。