如何在闲置一定时间后自动保存并关闭Excel文件？

在某些情况下，例如将Excel文件留在共享磁盘上时，当一个用户仍然打开该文件，其他人将无法编辑工作簿。那么如何在闲置一定时间后自动关闭文件以方便他人的工作呢？本文将通过VBA方法帮助您实现这一功能。

使用VBA代码在闲置一定时间后自动保存并关闭Excel文件

使用VBA代码在闲置一定时间后自动保存并关闭Excel文件

要实现在闲置一定时间后自动保存并关闭Excel文件，请按照以下步骤操作。

1. 打开需要设置为在闲置一定时间后自动保存和关闭的工作簿。然后同时按下 Alt + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请双击右侧窗格中的 ThisWorkbook 以打开代码窗口。然后复制并将以下VBA代码粘贴到代码窗口中。参见截图：

VBA代码1：在闲置一定时间后自动保存并关闭Excel文件

Dim xTime As String
Dim xWB As Workbook

Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
    On Error Resume Next
    xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
    Set xWB = ActiveWorkbook
    If xTime = "" Then Exit Sub
    Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Sub Reset()
    Static xCloseTime
    If xCloseTime <> 0 Then
        ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
    End If
    xCloseTime = Now + TimeValue(xTime)
    ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub

3. 接下来点击 插入 > 模块，并将以下代码复制并粘贴到模块窗口中。参见截图：

VBA代码2：在闲置一定时间后自动保存并关闭Excel文件

Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

4. 同时按下 Alt + Q 键以关闭 Microsoft Visual Basic for Applications 窗口。

5. 点击 文件 > 另存为 > 浏览。参见截图：

6. 在“另存为”对话框中，请选择一个文件夹来保存文件，在“文件名”框中根据需要命名，从“指定保存 格式”下拉列表中选择“启用宏的Excel工作簿”，最后点击“保存”按钮。参见截图：

从现在开始，每次打开此工作簿时，都会弹出一个 Kutools for Excel 对话框。请输入您希望保存并关闭工作簿的时间，然后点击“确定”按钮。

此后，工作簿将在指定的闲置时间后自动保存并关闭。参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！