【发布时间】：2015-07-12 10:57:27
【问题描述】：
我正在尝试运行一个在激活工作表时显示所有 cmets 的代码。然后 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
错误消息截图
【问题讨论】：
-
“Sub CloseComments”似乎在 WorkSheet 代码页上。将其移至标准模块。即VBA IDE插入菜单->模块
-
请不要将macros tag 用于 MS Office / VBA。