Excel 如果用户希望在活动5分钟后保存，则提示用户

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

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

在每个新工作簿上运行宏

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

---

您想向工作簿中添加计时器。请参阅此线程：

例如

总结如下：

添加一个子项，例如，在工作簿打开事件上，运行运行单独子项的计时器

在单独的子项中添加messagebox并运行初始子项

---

太棒了-谢谢你！这是我的下一个问题——我需要在老板电脑上的每个新工作簿上运行这个宏。我不确定如何/在何处保存以确保其启动。非常感谢。搜索Excel加载项的主题。“C:\Users\USERNAME\AppData\Roaming\Microsoft\AddIns”中的Excel加载项是将与工作站上的每个Excel工作簿一起打开的文件。在外接程序中，将宏添加到私有子工作簿_Open（）方法，但引用“Activeworkbook”，而不是当前工作簿。这是我最喜欢的关于插件的教程，我尽了最大努力，一个小时后我无法让它工作。

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