打开工作簿要求加载SAPBEX.xla文件

将以下代码复制到工作簿的PERSONAL.XLSM模块中，然后刷新-

Private WithEvents App As Application
Private Sub Workbook_Open()
   Set App = Application
End Sub
Try adding below code, in your module:
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
   MsgBox "New Workbook: " & Wb.Name
End Sub