如果在一定的时间内没有点击button，则运行macros
我有3个电子表格，每天早上使用任务计划程序自动打开。 打开后，我用VBA自动更新，保存，然后closures每个文件。
这样做的代码完美的工作，但如果我想打开电子表格编辑它们（我必须打开它们，特别是不运行macros，因此自动closures）导致一些麻烦。 我希望能够正常打开电子表格进行编辑，而不会自动closures。
一个可能的解决scheme是有一个MsgBoxpopup。 如果MsgBox未在15秒内（或左右）确认，则文件自动closures。 如果MsgBox被确认，则文件不会closures。
有谁知道如何做到这一点？
第一
使用下面的代码创build名称为（Close）的子例程
Unload UserForm1 其次：15秒后调用该例程
Private Sub UserForm_Initialize() tmeKill = Time + TimeValue("00:00:15") Application.OnTime tmeKill, "Close" End Sub