仅当工作簿打开超过一秒时才运行脚本。

Question

我试图在工作簿中添加一个计数器，以查看工作簿的使用次数。但是，工作簿经常通过脚本更新，该脚本将打开所述工作簿，向所述工作簿添加新工作表，以及关闭/保存工作簿。如果工作簿超过1/2秒，我想只计算一次使用。

我曾尝试在Workbook_Open函数中添加计时器，这是我目前尝试过的。

Private Sub Workbook_Open()
Dim AlertTime as Double
Application.OnTime AlertTime + TimeValue("00:00:02"), "AccessCounter"
End sub


Sub AccessCounter()
On Error Goto WorkbookAccessedbyMacro:

Counter = Counter + 1


WorkboookAccessedbyMacro:

End Sub

认为如果工作簿已经关闭，则On Error将无效。谢谢你的建议！

Answer 1

我想通了，我只需要将Sub AccessCounter（）移动到一个模块。菜鸟错了。