如果在一定时间内未单击按钮，则运行宏

Question

我有3个电子表格，我每天早上都使用任务调度程序自动打开。打开后，我使用VBA自动更新，保存，然后关闭每个文件。

执行此操作的代码完美无缺，但如果我想打开电子表格进行编辑，则会造成一些麻烦（我必须专门打开它们才能运行宏，因此会自动关闭）。我希望能够正常打开电子表格进行编辑，而不会自动关闭。

一种可能的解决方案是弹出一个MsgBox。如果在15秒（或左右）内未确认MsgBox，则文件将自动关闭。如果确认了MsgBox，则文件不会关闭。

有谁知道怎么做？

Answer 1

首先
使用以下代码

创建名称（Close）的子例程

Unload UserForm1 

第二：15秒后调用该例行程序

Private Sub UserForm_Initialize() 
    tmeKill = Time + TimeValue("00:00:15")      
    Application.OnTime tmeKill, "Close" 
End Sub