Vba 无法运行宏，可能已禁用

我试图运行一个代码，在激活工作表时显示所有注释。5秒钟后，所有的赞扬都被隐藏了。我在5秒处收到一个错误，上面写着“无法运行宏（文件路径）。该宏可能在此工作簿中不可用，或者所有宏都被禁用。”

我去了信任中心，选中了宏页面中的复选框，并启用了所有宏。我已将共享驱动器上的文件路径添加到我的受信任位置。我已经尝试将文件复制到我的文档并在本地运行它。不走运

有什么好处

Dim TimeToRun

Private Sub Worksheet_Activate()

    Application.DisplayCommentIndicator = xlCommentAndIndicator

    TimeToRun = Now + TimeValue("00:00:05")
    Application.OnTime TimeToRun, "CloseComments"

End Sub

Sub CloseComments()
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

错误消息屏幕截图

---

尝试将

子关闭注释

移动到标准模块而不是工作表模块，它应该可以工作。

尝试将

子关闭注释

移动到标准模块而不是工作表模块，它应该可以工作。

“子关闭注释”显示在工作表代码页上。将其移动到标准模块。i、 e.VBA IDE插入菜单->模块请不要使用MS Office/VBA的“Sub-CloseComments”显示在工作表代码页上。将其移动到标准模块。i、 e.VBA IDE插入菜单->模块请不要使用用于MS Office/VBA的。