Deze tutorial leert je hoe je werkbladen kunt verbergen en zichtbaar maken met VBA.
Blad verbergen in VBA
Gebruik de eigenschap werkblad Zichtbaar om een blad in VBA te verbergen.
Stel de eigenschap Visible in op FALSE:
1 | Worksheets("Blad1").visible = False |
of stel de eigenschap Visible in op xlSheetHidden:
1 | Werkbladen ("Blad1").visible = xlSheetHidden |
Dit is hetzelfde alsof de gebruiker met de rechtermuisknop op het werkbladtabblad heeft geklikt en "verbergen" heeft geselecteerd.
Blad zichtbaar maken
Gebruik de eigenschap werkblad Zichtbaar om een blad zichtbaar te maken in VBA:
1 | Werkbladen ("Blad1"). Zichtbaar = True |
of
1 | Werkbladen ("Blad1"). Zichtbaar = xlBlad Zichtbaar |
Verborgen bladen kunnen worden bekeken door met de rechtermuisknop te klikken in het tabblad Werkblad:
Zeer verborgen bladen
De eigenschap Sheet Visible heeft een derde optie: xlSheetVeryHidden:
1 | Werkbladen ("Blad1"). Zichtbaar = xlBladVeryHidden |
Zeer verborgen bladen worden verborgen wanneer u met de rechtermuisknop klikt in het tabblad Werkblad:
Deze code voorkomt dat de spreadsheetgebruiker het tabblad Werkblad onder aan het scherm ziet. Het verbergt ook het werkblad voor de gebruiker wanneer ze met de rechtermuisknop op de tabbladen onderaan klikken. De enige manier om te zien of het werkblad bestaat (of het werkblad zichtbaar te maken) is door de Visual Basic Editor te openen.
Zeer verborgen bladen zichtbaar maken
Zeer verborgen werkbladen worden zichtbaar gemaakt, net als gewone verborgen werkbladen:
1 | Werkbladen ("Blad1"). Zichtbaar = True |
of
1 | Werkbladen ("Blad1"). Zichtbaar = xlBlad Zichtbaar |
Bladen verbergen / zichtbaar maken in de VBA-editor
U kunt ook de eigenschap Werkblad zichtbaar in de VBA-editor schakelen:
Alle werkbladtabbladen verbergen
Mogelijk wilt u ook het gebied met het werkbladtabblad helemaal verbergen om te voorkomen dat de gebruiker naar verschillende werkbladen navigeert. Meer informatie over het verbergen van werkbladtabbladen.
Bladen verbergen / zichtbaar maken in beveiligde werkmap
Uw werkmap moet niet beveiligd zijn voordat u werkbladen kunt verbergen of zichtbaar maken. Gebruik de volgende code om de beveiliging van uw werkmapstructuur op te heffen:
1 | ActiveWorkbook.Unprotect |
Als uw werkmapstructuur met een wachtwoord is beveiligd, moet u dit in plaats daarvan doen:
1 | ThisWorkbook.Unprotect "wachtwoord" |
Alle bladen zichtbaar maken
Met deze procedure worden alle werkbladen in een werkmap zichtbaar met behulp van een For Each Loop:
12345678 | Sub Unhide_All_Sheets()Dim ws als werkbladActiveWorkbook.UnprotectVoor elke ws In werkbladenws.Visible = xlSheetVisibleVolgendeEinde sub |
Merk op dat we eerst de beveiliging van de werkmap opheffen, voor het geval deze met een wachtwoord was beveiligd.