Salt la conținutul principal
 

Cum se salvează și se închide registrul de lucru după inactivitate pentru o anumită perioadă de timp?

Autor: Sun Ultima modificare: 2024-08-08

Î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


săgeată albastru dreapta balon 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

 

copiați și inserați codul vba în fereastra de cod

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

 

copiați și inserați codul vba în fereastra Thisworkbook

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:
comutați la modulul de cod normal și rulați codul

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.
iese un dialog

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.
salvează când iese fereastra


Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


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!