Excel VBA命令工作簿\u打开不工作

打开工作簿时，无法打开工作簿以显示消息

根据过去的反馈，我已将代码放在“此工作簿”选项卡中。在一个文件中工作，在另一个文件中不工作。我应该找什么

Private Sub Workbook_Open()
   If Weekday(Now) = vbThursday Then
    Msg = "Today is Thursday. MAke sure that you "
    Msg = Msg & "submit the TPS report."
    MsgBox Msg, vbInformation
   End If
 End Sub

---

消息未显示

我测试了您的代码，它正常工作。这意味着这不是一个如何写的问题，而是其他因素的问题

仔细检查电子表格是否保存为允许使用宏的文件类型，例如

.xlsm

或

.xlsb

---

当你打开文件时，检查一下，会看到一条黄色的丝带，上面写着“启用内容”。信任该文件，然后每次打开该文件后，该文件都应运行。

是否有可能在Excel中禁用宏（但某些文件夹中的文件受信任/允许使用宏）？检查Excel选项中的信任中心，并告诉我们您的宏安全选项。谢谢，所有宏都已启用，并且文件保存为XLSM文件。其他宏设置是否可以执行此操作？@user9020604打开文件时，是否可以确认宏已启用（打开文件后未启用）？这很有用，我如何检查？