在特定的空閒時間後如何自動保存和關閉Excel文件？

在某些情況下，例如將Excel文件保留在共享磁盤上，當用戶仍在打開文件時，其他人將無法編輯工作簿。 那麼，如何在空閒一段時間後自動關閉文件以減輕他人的工作負擔？ 本文將幫助您使用VBA方法。

閒置一定時間後，使用VBA代碼自動保存並關閉Excel文件

閒置一定時間後，使用VBA代碼自動保存並關閉Excel文件

要在一定的空閒時間後自動保存並關閉Excel文件，請執行以下操作。

1.打開所需的工作簿，使其自動保存，並在一定的空閒時間後關閉。 然後按 其他 + 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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

5。 點擊 文件 > 另存為 > 瀏覽。 看截圖：

6。 在裡面 另存為 對話框，請選擇一個文件夾來保存文件，在“文件名”框中根據需要命名，然後選擇 Excel啟用宏的工作簿 來自 除上文所 類型 下拉列表，最後單擊 節省 按鈕。 看截圖：

從現在開始，每次打開此工作簿時， Excel的Kutools 對話框將會彈出。 請輸入保存和關閉工作簿所基於的時間，然後單擊 OK 按鈕。

在指定的空閒時間之後，工作簿將自動保存並關閉。 看截圖：

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！