无法运行宏，可能会被禁用

Question

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

我去了信任中心并检查了宏页面中的框并启用了所有宏。我已将共享驱动器上的filepathe添加到我信任的位置。我已经尝试将文件复制到我的文档并在本地运行它。没有运气。

是什么给出了？

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

错误消息屏幕截图

Answer 1

尝试将Sub CloseComments移动到标准模块而不是工作表模块，它应该可以正常工作。