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.
Cele mai bune instrumente de productivitate de birou
Î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!