Hoe alle werkbladen in Excel te verbergen, behalve het opgegeven of actieve werkblad?

Om uw werkboek overzichtelijk en gemakkelijk te navigeren, wilt u misschien alle werkbladen verbergen, behalve het momenteel actieve werkblad in Excel. In dit artikel laten we u twee methoden zien om alle werkbladen te verbergen, behalve het opgegeven of actieve werkblad in Excel.

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

Verberg alle werkbladen behalve het opgegeven werkblad in Excel met VBA-code

U kunt alle werkbladen behalve het opgegeven werkblad verbergen met VBA-code in Excel. Volg hiervoor de volgende stappen.

1. Open in het momenteel geopende werkboek het werkblad dat u zichtbaar wilt houden, en druk vervolgens tegelijkertijd op Alt + F11 om het Microsoft Visual Basic Application-venster te openen.

2. Klik in het Microsoft Visual Basic Application-venster op Invoegen > Module. Zie screenshot:

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

VBA-code: verberg alle werkbladen behalve het opgegeven werkblad

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 op de F5-toets om de code uit te voeren.

5. Nadat u de code hebt uitgevoerd, verschijnt er een dialoogvenster met de naam van het actieve werkblad in het Bereik-vak. Klik vervolgens op de knop OK.

Alle werkbladen worden onmiddellijk verborgen, behalve het huidige werkblad in uw werkboek.

Opmerking: Om de verborgen werkbladen weer te geven, kopieert u de volgende VBA-code naar de Module en drukt u 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 het actieve werkblad met Kutools voor Excel (slechts één klik)

U kunt alle werkbladen behalve het opgegeven of actieve werkblad met slechts één klik in Excel verbergen.

1. Ga naar het opgegeven werkblad dat u alleen in het huidige werkboek wilt laten zien.

2. Klik vervolgens op Kutools > Weergeven & Verbergen > Verberg niet-geselecteerde werkbladen.

Alle werkbladen in het huidige werkboek zijn nu verborgen, behalve het actieve werkblad.

Opmerking: Als u alle verborgen werkbladen wilt weergeven, klikt u op Kutools > Weergeven / Verbergen > Alle werkbladen weergeven. Zie screenshot: