表格自动保存时间怎么设置（VBA设置自动保存工作表方法）

Excel工作表有自动保存的功能，是我们在进行工作表操作的时候，以防止突然断电或电脑死机而造成的数据丢失问题而设置的一个安全措施。

通常， 可以在项目设置里进行设置，这个也很容易找到，如下图所示：

下面用一个示例，来通过VBA代码实现如上设置的功能。

这样有一个方便之处就是，在程序设计的时候会十分清楚地知道当前工作表是否具有自动保存恢复的功能。

然后，根据实际情况来对程序进行相应的处理。

示例效果图

对象名：AutoRecover

对象AutoRecover通过Application对象返回：

set Ar=Application.AtuoRecover

Ar就是一个AtuoRecover对象

代码：

Private Sub 启用自动恢复_Click() Application.AutoRecover.Enabled = True End Sub Private Sub 关闭自动恢复_Click() Application.AutoRecover.Enabled = False End Sub

Private Sub 设置自动保存路径() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Me.TextBox1.Value = .SelectedItems(1) Application.AutoRecover.Path = .SelectedItems(1) End If End With End Sub

Private Sub 设置保存间隔时间() With Application.AutoRecover .Time = 15‘15分钟 End With End Sub

作为一个安全措施，这一步也很重要，通常在丢失数据的时候才会想起来，如何恢复的方法，实际在工作当中稍微留意一下，很问题就会避免发生。

当然，这也不是个万全之策，很多时候恢复的文件也会出现损坏，所以，还是在工作当中养成随时保存编辑文件的习惯，最好不过了。

欢迎关注、收藏

---END---