KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come chiudere rapidamente tutte le cartelle di lavoro tranne quella attiva?

AutoreXiaoyang Data di modifica

Se nel computer hai aperte più cartelle di lavoro e vuoi chiuderle tutte tranne quella attiva, esistono metodi rapidi per farlo senza dover chiudere manualmente ogni file uno per uno? In questo articolo ti mostrerò alcuni semplici trucchi per risolvere il problema con un solo clic.

Chiudi tutte le cartelle di lavoro tranne quella attiva con codice VBA

Chiudi tutte le cartelle di lavoro tranne quella attiva con Office Tab


Chiudi tutte le cartelle di lavoro tranne quella attiva con codice VBA

Con il seguente codice VBA puoi chiudere rapidamente tutte le cartelle di lavoro aperte, esclusa quella attiva. Procedi nel modo seguente:

1. Attiva la cartella di lavoro che vuoi tenere aperta.

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic, Applications.

3. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del modulo.

Codice VBA: chiudi tutte le cartelle di lavoro tranne quella attiva

Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
    If Not (xWB Is Application.ActiveWorkbook) Then
        xWB.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Premi quindi il tasto F5 per eseguire il codice: tutte le altre cartelle di lavoro verranno chiuse immediatamente, lasciando aperta soltanto quella attiva.



Chiudi tutte le cartelle di lavoro tranne quella attiva con Office Tab

Se sei interessato a un nuovo prodotto –Office Tab– puoi usarlo per aprire più documenti o file in un’unica finestra con le schede. Grazie a questa funzionalità, con un solo clic puoi chiudere tutte le cartelle di lavoro tranne quella attiva. Scopri di più e scarica Office Tab.

Dopo aver installato Office Tab, noterai che tutte le cartelle di lavoro aperte vengono visualizzate in un’unica finestra con schede, come mostrato nello screenshot:

abilita office tab

Fai quindi clic sulla Nome Workbook che desideri mantenere aperta, fai clic con il pulsante destro del mouse sulla relativa scheda e scegli Chiudi le altredal menu contestuale, come mostrato nello screenshot:

chiudi tutte le cartelle di lavoro tranne quella attiva

A questo punto, vedrai aperta soltanto la tua cartella di lavoro corrente.


Articolo correlato:

Come chiudere rapidamente tutte le cartelle di lavoro in Excel?

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...


Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • 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 all’interno della stessa finestra, invece che in finestre separate.
  • Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

ExcelWordOutlookTabsPowerPoint
  • Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
  • Funziona meglio insieme— produttività ottimizzata tra le app di Office
  • Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
  • Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi