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