使用VBA让Excel能定时保存，防止忘记或断电丢失数据

加代码

以下加到thisworkbook 里

Private Sub Workbook_Open()
Application.Visible = False
用户登录.Show
Sheets(“超级查询”).Unprotect
Call dbdb ‘ 定时保存
End Sub

下面加到一个新模块里

Sub dbdb()
Application.OnTime Now + TimeValue(“00:02:00”), “bc”
End Sub
Sub bc()
ThisWorkbook.Save
Call dbdb
End Sub

以上定义的是2分钟进行一个保存，这个时间可以进行更改。以实际表格能自动保存，防止丢失。