怎样使用VBA定时保存?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 自动保存()

 

    msg=MsgBox("朋友，现在要存盘吗?" & Chr(13) & "选择是:立即存盘" & Chr(13) _

 

    & "选择否:暂不存盘" & Chr(13) & "选择取消:不再出现此提示" & Chr(13), _

 

    vbYesNoCancel+64, "友情提示")

 

    If msg=vbYes Then ActiveWorkbook.Save Else If msg=vbCancel Then Exit Sub

 

    Call AUTO_OPEN

 

End Sub

 

Sub AUTO_OPEN()

 

    Application.OnTime Now+TimeValue("00:10:00"), "自动保存"

 

End Sub

5、重新打开工作簿，到10分钟后程序将弹出友情提示对话框，询问是否存盘