VBA Een werkblad verbergen (of zichtbaar maken) - VBA-codevoorbeelden

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.

wave wave wave wave wave