Cum se salvează și se închide registrul de lucru după inactivitate pentru o anumită perioadă de timp?
În anumite momente, este posibil să închideți accidental un registru de lucru atunci când sunteți ocupat cu alte probleme pentru o lungă perioadă de timp, ceea ce poate pierde unele date importante din registrul de lucru. Există trucuri pentru a salva și închide automat registrul de lucru dacă l-ați dezactivat pentru o anumită perioadă de timp?
Salvarea automată și închiderea registrului de lucru după inactivitate pentru o anumită perioadă de timp cu VBA
Nu există nicio funcție încorporată în Excel pentru a rezolva această problemă, dar pot introduce un cod macro care vă poate ajuta să salvați și să închideți registrul de lucru după inactivitate într-un anumit timp.
1. Activați registrul de lucru pe care doriți să îl salvați și să îl închideți automat după inactivitate pentru anumite secunde și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module pentru a crea un Module script și lipiți codul de mai jos pe acesta. Vedeți captura de ecran:
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. Apoi în Explorator de proiecte , faceți dublu clic Acest registru de lucru, și lipiți codul de mai jos pe scriptul de lângă. Vedeți captura de ecran:
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. Mergeți la dublu clic pe modulul pe care l-ați introdus la pasul 2 și apăsați F5 tasta pentru a rula codul. Vedeți captura de ecran:
5. Apoi, după 15 secunde, apare un dialog pentru a vă reaminti salvarea registrului de lucru și faceți clic pe Da pentru a salva și a închide registrul de lucru.
Sfat:
(1) În primul cod, puteți schimba timpul de inactivitate la altul din acest șir: Now + TimeValue („00:00:15”)
(2) Dacă nu ați salvat niciodată registrul de lucru înainte, fișierul Salvare ca caseta de dialog va apărea mai întâi și vă va cere să o salvați.
|
| Kutools pentru Excel Protejați foaia de lucru funcția poate proteja rapid mai multe foi sau întregul registru de lucru simultan. |
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
