Excel办公小助手

在日常工作中，我们需要对正在编辑的文件进行保存，然而，当我们忙碌的时候经常会忘记做这件事！下面就给大家介绍一种能够自动提醒我们对文件进行保存的方法。

首先，请大家打开Excel VBA工程资源管理器窗口（快捷键：Alt+F11），插入一模块，在模块中输入下面代码：

Public Sub RemindSave()

Application.OnTime Now() + TimeValue("00:10:00"), "savebook"

End Sub

Public Sub savebook()

Application.ScreenUpdating = False

If MsgBox("您已经有10分钟没有保存文件了，现在保存吗？", vbQuestion + vbYesNo, "保存文件") = vbYes Then

ThisWorkbook.Save

End If

Call RemindSave

Application.ScreenUpdating = True

End Sub

模块1代码

其次，在ThisWorkbook模块中输入下面代码：

Private Sub workbook_open()

Call RemindSave

End Sub

ThisWorkbook代码

完成以上操作后，当我们每次打开工作簿编辑或修改的时候，系统就会每隔10分钟，自动提醒我们对工作表进行保存操作！

若喜欢这篇文章，别忘记点赞，评论，收藏，转发！！