Question

VBA Excel自动保存代码

每隔一段时间例如一个小时自动保存一次，要求不ui弹出任何提示，就直接保存

Answer 1

先添加模块，输入：

Sub AutoSave()
    Dim Start, PauseTime
    Do While True
        PauseTime = 3600    '3600秒，1小时，根据需要换其他时间
        Start = Timer
        Do While Timer < Start + PauseTime
            DoEvents
        Loop
        ActiveWorkbook.Save
    Loop
        
End Sub

在ThisWorkbook的Open事件中的代码：

Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("00:00:10"), "AutoSave"    '打开后稍等片刻，开始进入自动判断时间，时间达到要求后保存，并一直循环直到关闭
End Sub

Answer 2

Private Sub Workbook_open()
Call runtimer
End Sub
Sub runtimer()
Application.OnTime Now + TimeValue("01:00:00"), "保存"
End Sub
Sub 保存()
Application.DisplayAlerts = False
Workbooks("1.xlsm").Save '工作簿名称自己修改
Call runtimer
End Sub

追问

runtimer和 保存()要放到模块里，还是都放在ThisWorkbook里就行了

追答

都行,可以把时间调成 10秒试下