Jak automatycznie zapisać i zamknąć plik Excela po określonym czasie bezczynności?
W niektórych przypadkach, takich jak pozostawienie pliku programu Excel na udostępnionym dysku, gdy plik jest nadal otwierany przez użytkownika, inni nie mogą edytować skoroszytu. Jak więc automatycznie zamknąć plik po pewnym czasie bezczynności, aby ułatwić pracę innym? Ten artykuł pomoże Ci z metodą VBA.
Automatycznie zapisuj i zamykaj plik Excel po pewnym czasie bezczynności z kodem VBA
Automatycznie zapisuj i zamykaj plik Excel po pewnym czasie bezczynności z kodem VBA
Aby automatycznie zapisać i zamknąć plik Excela po określonym czasie bezczynności, wykonaj następujące czynności.
1. Otwórz skoroszyt, który chcesz, aby został automatycznie zapisany i zamknięty po określonym czasie bezczynności. Następnie naciśnij inny + F11 klucze razem, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ten zeszyt w prawym okienku, aby otworzyć okno Kod. Następnie skopiuj i wklej poniższy kod VBA do okna Code. Zobacz zrzut ekranu:
Kod VBA 1: Automatyczne zapisywanie i zamykanie pliku Excel po pewnym czasie bezczynności
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. Następnie kliknij dalej wstawka > modułi skopiuj i wklej poniższy kod do okna modułu. Zobacz zrzut ekranu:
Kod VBA 2: Automatyczne zapisywanie i zamykanie pliku Excel po pewnym czasie bezczynności
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
5. kliknij filet > Zapisz jako > Przeglądaj. Zobacz zrzut ekranu:
6. w Zapisz jako W oknie dialogowym wybierz folder do zapisania pliku, nazwij go zgodnie z potrzebami w polu Nazwa pliku, wybierz Skoroszyt Excel z włączoną obsługą makr z Zapisz jako rodzaj rozwijaną listę, a na koniec kliknij Zapisz przycisk. Zobacz zrzut ekranu:
Odtąd za każdym razem, gdy otwierasz ten skoroszyt, a Kutools dla programu Excel pojawi się okno dialogowe. Wprowadź czas, w którym chcesz zapisać i zamknąć skoroszyt na podstawie, a następnie kliknij OK przycisk.
Skoroszyt zostanie zapisany i zamknięty automatycznie po określonym czasie bezczynności. Zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!