[算表] 巨集無法自動更新

[liquidbox (樹枝擺擺)]

軟體:Excel

版本:2016

請問，我在excel裡寫了一個簡單VBA，想要測試自動更新
內容如下：

Sub auto_update()
        Sheets(1).Activate
        Range("A1").Activate
        ActiveCell.FormulaR1C1 = Now()
        Application.OnTime Now + TimeValue("00:00:03"), "auto_update"
End Sub


但一執行到Application.OnTime時，就會出現
「該巨集可能無法在此活頁簿中使用，或者已停用所有巨集」
我已經將信任中心的巨集設定安全性設到最低，還是會出現同樣錯誤

我也試過把Application.OnTime拉到外面來執行，變成兩個獨立巨集，

Sub auto_update()
        Sheets(1).Activate
        Range("A1").Activate
        ActiveCell.FormulaR1C1 = Now()
End Sub

sub test()
        Application.OnTime Now + TimeValue("00:00:03"), "auto_update"
end sub

因為執行巨集前半都沒問題，都只出在Application.OnTime
請問這個Application.Ontime有什麼另外要注意的地方嗎？
謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.220.69.237
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1532315692.A.612.html
→ soyoso: 是否將巨集寫在工作表內，測試寫在該處時會產生如原文的錯
→ soyoso: 誤訊息 https://i.imgur.com/sYTtNEY.jpg
→ soyoso: 如果是的話，請新增個模組，將巨集寫於該模組內，再執行看
→ soyoso: 看
→ soyoso: 如寫於工作表內，而不改寫到模組內的話，"auto_update"前
→ soyoso: 則以完整檔名!worksheet.codename(如工作表1).auto_update
已解決，真的是沒把VBA寫在模組裡的關係，
以前都沒注意到，謝謝！
※ 編輯: liquidbox (61.220.69.237), 07/23/2018 12:33:56