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

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Firefox e Safari!

Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

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 Sub

4. 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. 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!

Leggi di più... Download gratuito... Acquista...