如何在不活动一段时间后保存并关闭工作簿？

有时，当你长时间忙于其他事务时，可能会意外关闭工作簿，这可能导致工作簿中的一些重要数据丢失。有没有什么方法可以在你不活动一段时间后自动保存并关闭工作簿呢？

使用VBA在不活动一段时间后自动保存并关闭工作簿

使用VBA在不活动一段时间后自动保存并关闭工作簿

Excel中没有内置功能来解决这个问题，但我可以介绍一个宏代码，它可以帮助你在不活动一段时间后保存并关闭工作簿。

1. 启用你希望在不活动一定秒数后自动保存和关闭的工作簿，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块 创建一个 模块脚本，并将以下代码粘贴到其中。参见截图：

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

3. 然后在 项目资源管理器窗格中，双击 This Workbook，并将以下代码粘贴到旁边的脚本中。参见截图：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

4. 转到步骤2中插入的模块并双击，然后按 F5 键运行代码。参见截图：

5. 然后在15秒后，会弹出一个对话框提醒你保存工作簿，点击 是 以保存并关闭工作簿。

提示：

(1) 在第一个代码中，你可以通过修改此字符串中的时间值来更改不活动时间：Now + TimeValue("00:00:15")

(2) 如果你之前从未保存过该工作簿，则 另存为 对话框会首先弹出并要求你保存它。