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
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...
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!