欢迎光临LDC
学习是进步之梯

使用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分钟进行一个保存,这个时间可以进行更改。以实际表格能自动保存,防止丢失。

未经允许不得转载:拓学工程 » 使用VBA让Excel能定时保存,防止忘记或断电丢失数据
分享到: 更多 (0)