Ga naar hoofdinhoud

Hoe verberg ik alle werkbladen behalve de opgegeven of actieve in Excel?

Om de werkmap schoon en gemakkelijk te navigeren te houden, wilt u misschien alle werkbladen verbergen, behalve de huidige actieve in Excel. In dit artikel laten we u twee methoden zien om alle werkbladen te verbergen, maar gespecificeerd of actief in Excel.

Verberg alle werkbladen behalve de opgegeven in Excel met VBA-code
Verberg alle werkbladen behalve de actieve met Kutools voor Excel (slechts enkele klikken)


Verberg alle werkbladen behalve de opgegeven in Excel met VBA-code


U kunt alle werkbladen verbergen, behalve de opgegeven met VBA-code in Excel. Ga als volgt te werk.

1. Ga in de huidige geopende werkmap naar het werkblad dat u alleen wilt weergeven en druk op anders + F11 gelijktijdig om het Microsoft Visual Basic-toepassing venster.

2. In de Microsoft Visual Basic-toepassing venster klikt Invoegen > Module. Zie screenshot:

3. Kopieer en plak vervolgens de onderstaande VBA-code in de code-editor.

VBA-code: verberg alle bladen behalve de gespecificeerde

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. druk de F5 sleutel om de code uit te voeren.

5. Na het uitvoeren van de code, verschijnt er een dialoogvenster met de naam van het actieve blad in de RANGE vak en klik vervolgens op het OK knop.

Vervolgens worden alle werkbladen onmiddellijk verborgen, behalve de huidige in uw werkmap.

Note: Voor het weergeven van de verborgen werkbladen, kopieer en plak de volgende VBA-code in de module en druk vervolgens op de F5-toets om de code uit te voeren.

VBA-code: toon verborgen werkbladen

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Verberg alle werkbladen behalve de actieve met Kutools voor Excel (slechts één klik)

U kunt alle bladen verbergen behalve de opgegeven of actieve met slechts één klik in Excel.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Ga naar het opgegeven blad waarvan u wilt dat het alleen in de huidige werkmap wordt weergegeven.

2. Dan klikken Kutools > Laten zien verbergen > Verberg niet-geselecteerde bladen.

Vervolgens zijn alle bladen in de huidige werkmap verborgen behalve de actieve.

Note: Als u alle verborgen werkbladen wilt weergeven, klikt u op Kutools > Weergeven / verbergen > Maak alle bladen zichtbaar. Zie screenshot:

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations