Jak zapisać i zamknąć skoroszyt po pewnym okresie braku aktywności?
Czasami możesz przypadkowo zamknąć skoroszyt, gdy jesteś zajęty innymi sprawami przez długi czas, co może spowodować utratę niektórych ważnych danych w skoroszycie. Czy są jakieś sztuczki, aby automatycznie zapisywać i zamykać skoroszyt, jeśli dezaktywowałeś go przez określony czas?
Automatycznie zapisuj i zamykaj skoroszyt po braku aktywności przez określony czas z VBA
Automatycznie zapisuj i zamykaj skoroszyt po braku aktywności przez określony czas z VBA
W programie Excel nie ma wbudowanej funkcji, która rozwiązałaby ten problem, ale mogę wprowadzić kod makra, który może pomóc w zapisywaniu i zamykaniu skoroszytu po braku aktywności w określonym czasie.
1. Włącz skoroszyt, który chcesz automatycznie zapisać i zamknąć po określonym czasie bezczynności i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł stworzyć Moduł script i wklej do niego poniższy kod. Zobacz zrzut ekranu:
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. Następnie w Eksplorator projektów okienku, kliknij dwukrotnie Ten skoroszyti wklej poniższy kod do skryptu obok. Zobacz zrzut ekranu:
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. Kliknij dwukrotnie moduł wstawiony w kroku 2 i naciśnij F5 klucz do uruchomienia kodu. Zobacz zrzut ekranu:
5. Następnie po 15 sekundach pojawi się okno dialogowe przypominające o zapisaniu skoroszytu i kliknij Tak aby zapisać i zamknąć skoroszyt.
Porady:
(1) W pierwszym kodzie możesz zmienić czas bezczynności na inny w tym ciągu: Now + TimeValue („00:00:15”)
(2) Jeśli nigdy wcześniej nie zapisałeś skoroszytu, plik Zapisz jako najpierw pojawi się okno dialogowe i poprosi o jego zapisanie.
Chroń arkusz roboczy
|
Kutools dla Excela Chroń arkusz roboczy Funkcja może szybko chronić wiele arkuszy lub cały skoroszyt jednocześnie. |
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!