Come salvare e chiudere automaticamente un file Excel dopo un certo periodo di inattività?
In alcuni casi, ad esempio lasciando un file Excel su un disco condiviso, quando il file è ancora aperto da un utente, altri non sono in grado di modificare la cartella di lavoro. Quindi come chiudere automaticamente il file dopo un certo tempo di inattività per facilitare il lavoro degli altri? Questo articolo ti aiuterà con il metodo VBA.
Salva automaticamente e chiudi un file Excel dopo un certo tempo di inattività con codice VBA
Salva automaticamente e chiudi un file Excel dopo un certo tempo di inattività con codice VBA
Per salvare automaticamente e chiudere un file Excel dopo un certo periodo di inattività, eseguire le seguenti operazioni.
1. Aprire la cartella di lavoro necessaria per salvarla e chiuderla automaticamente dopo un certo periodo di inattività. Quindi premere il pulsante altro + F11 chiavi insieme per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic su Questa cartella di lavoro nel riquadro di destra per aprire la finestra del codice. Quindi copia e incolla sotto il codice VBA nella finestra del codice. Vedi screenshot:
Codice VBA 1: salva automaticamente e chiude un file Excel dopo un certo periodo di inattività
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Quindi continuare a fare clic inserire > moduloe copia e incolla il codice sottostante nella finestra del modulo. Vedi screenshot:
Codice VBA 2: salva automaticamente e chiude un file Excel dopo un certo periodo di inattività
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. premi il altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
5. Clic Compila il > Salva con nome > Scopri la nostra gamma di prodotti. Vedi screenshot:
6. Nel Salva con nome finestra di dialogo, selezionare una cartella per salvare il file, assegnargli il nome desiderato nella casella Nome file, selezionare Cartella di lavoro abilitata per Excel dal Salva con nome Digitare elenco a discesa e infine fare clic su Risparmi pulsante. Vedi screenshot:
D'ora in poi, ogni volta che apri questa cartella di lavoro, a Kutools for Excel apparirà la finestra di dialogo. Immettere l'ora in cui si salverà e si chiuderà la cartella di lavoro in base a, quindi fare clic su OK pulsante.
E la cartella di lavoro verrà salvata e chiusa automaticamente dopo il periodo di inattività specificato. Vedi screenshot:
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!
