excel,每十分钟弹出一个对话框,提示是否保存
3个回答
展开全部
Sub saveauto()
Application.OnTime Now + TimeValue("00:00:05"), "savefile"
End Sub
Sub savefile()
If MsgBox("是否保存?", vbYesNo) = vbYes Then ActiveWorkbook.Save
Call saveauto
End Sub
Application.OnTime Now + TimeValue("00:00:05"), "savefile"
End Sub
Sub savefile()
If MsgBox("是否保存?", vbYesNo) = vbYes Then ActiveWorkbook.Save
Call saveauto
End Sub
追问
请问,能告诉我怎么操作吗?我是excel菜鸟哦
追答
按ALT+F11打开VBA,插入模块,把代码复制进去。按F5
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |