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

Question

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

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

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

代码

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

Answer 1

您想要为工作簿添加计时器。看到这个帖子： 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中添加消息框并运行初始子