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

Se nel tuo computer sono aperte più cartelle di lavoro e ora, vuoi chiuderle tutte ma lasciare quella attiva. Esistono modi rapidi per affrontare questo lavoro tranne chiudere le altre cartelle di lavoro una per una? In questo articolo, parlerò di alcuni semplici modi per risolverlo con un clic.

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

Chiudi tutte le cartelle di lavoro tranne quella attiva con la scheda Office

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 tranne quella attiva, per favore fai come segue:

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

2. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file 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. Quindi premere F5 chiave per eseguire questo codice, quindi tutte le altre cartelle di lavoro sono state chiuse contemporaneamente, ma lascia solo quella attiva.

Chiudi tutte le cartelle di lavoro tranne quella attiva con la scheda Office

Se sei interessato a un nuovo prodotto - Office Tab, può aiutarti ad aprire più documenti/file in un'unica finestra a schede, con esso puoi chiudere tutte le cartelle di lavoro ma lasciarne attiva una con un clic. Puoi saperne di più e scarica la scheda Office.

Dopo l'installazione Office Tab, vedrai che tutte le cartelle di lavoro aperte vengono visualizzate in un'unica finestra a schede, vedi screenshot:

Quindi fare clic sul nome della cartella di lavoro che si desidera lasciare aperta e fare clic con il pulsante destro del mouse sulla scheda del nome, quindi scegliere Chiudi altro dal menu contestuale, vedi screenshot:

E poi, puoi vedere solo la tua cartella di lavoro attiva aperta.

Articolo correlato:

Come chiudere rapidamente tutte le cartelle di lavoro in Excel?