未触发Workbook_Open事件

Question

我有一本带有ODBC连接的工作簿，每隔1分钟刷新一次数据。

当我打开工作簿时，应该在激活主工作表之前显示启动屏幕5秒钟。

问题是当我打开工作簿同时打开其他工作簿时，将触发该事件。但是，如果工作簿是唯一打开的工作簿，则也会触发该事件，但是5秒钟没有显示任何内容，直到激活主工作表（不显示启动屏幕）。

任何帮助将不胜感激。

谢谢。

Private Sub Workbook_Open()
    ThisWorkbook.Sheets(“Splash Screen”).Visible = True
    ThisWorkbook.Sheets(“Splash Screen”).Active
    Wait 5
    ThisWorkbook.Sheets(“Splash Screen”).Visible = False
End Sub