Come salvare e chiudere la cartella di lavoro dopo l'inattività per un certo periodo di tempo?
In alcuni casi, potresti chiudere accidentalmente una cartella di lavoro quando sei impegnato con altri affari per un lungo periodo che potrebbe perdere alcuni dati importanti nella cartella di lavoro. Esistono trucchi per salvare e chiudere automaticamente la cartella di lavoro se l'hai disattivata per un certo periodo di tempo?
Salvataggio automatico e chiusura della cartella di lavoro dopo inattività per un certo periodo di tempo con VBA
Non esiste una funzione integrata in Excel per risolvere questo problema, ma posso introdurre un codice macro che può aiutarti a salvare e chiudere la cartella di lavoro dopo l'inattività in un certo tempo.
1. Abilitare la cartella di lavoro che si desidera salvare automaticamente e chiudere dopo inattività per alcuni secondi e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli creare un Moduli script e incolla il codice sottostante. Vedi screenshot:
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. Quindi in Esplora progetti riquadro, fare doppio clic Questa cartella di lavoroe incolla il codice sottostante nello script accanto. Vedi screenshot:
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. Fare doppio clic sul modulo inserito al passaggio 2 e premere F5 chiave per eseguire il codice. Vedi screenshot:
5. Quindi, dopo 15 secondi, viene visualizzata una finestra di dialogo per ricordare di salvare la cartella di lavoro e fare clic Sì per salvare e chiudere la cartella di lavoro.
Suggerimenti:
(1) Nel primo codice, puoi modificare il tempo di inattività in altro in questa stringa: Now + TimeValue ("00:00:15")
(2) Se non hai mai salvato la cartella di lavoro prima, il file Salva con nome la finestra di dialogo verrà visualizzata per prima e ti chiederà di salvarla.
Proteggi foglio di lavoro
|
Kutools per Excel Proteggi foglio di lavoro la funzione può proteggere rapidamente più fogli o l'intera cartella di lavoro contemporaneamente. |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!