作者:乔山办公网日期:
返回目录: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分钟,自动提醒我们对工作表进行保存操作!
若喜欢这篇文章,别忘记点赞,评论,收藏,转发!!