Excel VBA命令Workbook_open不起作用

Question

打開工作簿時，我無法使workbook_open顯示消息。

根據過去的反饋，我已將代碼放在“此工作簿”選項卡中。 在一個文件中有效，而在另一個文件中無效。 我應該找什么？

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

消息不顯示

Answer 1

我測試了您的代碼，它起作用了。 這意味着它的書寫方式不是問題，而是其他因素。

仔細檢查您的電子表格是否保存為允許宏的文件類型，例如.xlsm或.xlsb 。

當您打開文件時，檢查它是否有一條黃絲帶，上面寫着“啟用內容”。 信任文件，然后在每次打開文件后都應運行。