Skip to main content

Hoe kan ik snel alle werkboeken sluiten behalve het actieve?

Author: Xiaoyang Last Modified: 2025-05-29

Als er meerdere werkboeken op uw computer geopend zijn, en u nu allemaal wilt sluiten behalve het actieve. Zijn er snelle manieren om dit te doen zonder de andere werkboeken één voor één te sluiten? In dit artikel zal ik het hebben over enkele eenvoudige manieren om dit met één klik op te lossen.

Sluit alle werkboeken behalve het actieve met VBA-code

Sluit alle werkboeken behalve het actieve met Office Tab


Sluit alle werkboeken behalve het actieve met VBA-code

Met de volgende VBA-code kunt u snel alle geopende werkboeken sluiten behalve het actieve. Doe dit als volgt:

1. Activeer uw werkboek dat u open wilt houden.

2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Sluit alle werkboeken behalve het actieve

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. Druk vervolgens op de F5-toets om deze code uit te voeren, en alle andere werkboeken worden meteen gesloten, behalve het actieve.



Sluit alle werkboeken behalve het actieve met Office Tab

Als u geïnteresseerd bent in een nieuw product - Office Tab, het kan u helpen meerdere documenten / bestanden te openen in een venster met tabbladen. Met dit hulpmiddel kunt u alle werkboeken sluiten behalve het actieve met één klik. Meer informatie en download Office Tab.

Nadat u Office Tab heeft geïnstalleerd, ziet u dat alle geopende werkboeken worden weergegeven in één venster met tabbladen, zie screenshot:

enable office tab

Klik vervolgens op de naam van het werkboek dat u open wilt laten, klik met de rechtermuisknop op de naam van het tabblad, en kies 'Andere sluiten' in het contextmenu, zie screenshot:

close all workbooks except active

En daarna ziet u dat alleen uw actieve werkboek is geopend.


Gerelateerd artikel:

Hoe sluit u snel alle werkboeken in Excel?

Beste Office-productiviteitstools

🤖 Kutools AI Assistent: Breng een revolutie teweeg in data-analyse Methode: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools-functies gebruiken
Populaire functies: Dubbele waarden markeren, markeren of identificeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies | Afronden ...
Super ZOEKEN: VLookup met meerdere criteria | VLookup met meerdere waarden | Meervoudig-blad opzoeken | Fuzzy Match ...
Geavanceerde keuzelijst: Snel keuzelijst maken | Afhankelijke keuzelijst | Meervoudige selectie keuzelijst ...
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheid van verborgen kolommen wisselen | Bereik & kolommen vergelijken ...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden per lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...) ...
Top15 toolsets:12 Teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) |50+ Grafiek type (Gantt-diagram, ...) |40+ Praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) |19 Invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 Conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & Opsplitstools (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer

Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...


Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!