提示用户是否要在活动5分钟后保存

时间:2014-08-06 20:22:44

标签: excel excel-vba vba

新文件打开 5分钟后,我想询问用户是否要保存文件。

我发现代码询问他们是否要保存(下方),我只是不知道如何修改

  1. 让宏在每个新工作簿上运行
  2. 5分钟后显示提示。
  3. 代码

    If Not ThisWorkbook.Saved Then 
        If MsgBox("Do you want to save the file before continuing?",vbYesNo,"Save?") = vbYes Then
            ThisWorkbook.Save
        End If
    End If
    

1 个答案:

答案 0 :(得分:0)

您想要为工作簿添加计时器。看到这个帖子: VBA Macro On Timer style to run code every set number of seconds, i.e. 120 seconds

E.g。

alertTime = Now + TimeValue("00:05:00")'Adds 5 minutes
Application.OnTime alertTime, "YOUR MACRO SUB"

总结:

  1. 添加一个例如在工作簿打开事件上运行计时器运行单独的Sub

  2. 在单独的Sub中添加消息框并运行初始子