Hoe groepeer en ontgroepeer je rijen in een beveiligd werkblad?

Zoals we allemaal weten, zijn er in een beveiligd werkblad veel beperkingen voor het toepassen van bepaalde bewerkingen. Zo kunnen we bijvoorbeeld niet schakelen tussen gegroepeerde en niet-gegroepeerde gegevens. Is er een manier om rijen te groeperen of ontgroeperen in een beveiligd werkblad?

Rijen groeperen en ontgroeperen in een beveiligd werkblad met VBA-code

Rijen groeperen en ontgroeperen in een beveiligd werkblad met VBA-code

Misschien is er geen andere goede manier om dit probleem op te lossen dan door een VBA-code te gebruiken. Volg hiervoor de volgende stappen:

1. Activeer het werkblad dat u wilt gebruiken en zorg ervoor dat het werkblad nog niet beveiligd is.

2. Druk vervolgens tegelijkertijd op de toetsen ALT + F11 om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Rijen groeperen en ontgroeperen in een beveiligd werkblad

Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Druk vervolgens op de F5-toets om deze code uit te voeren. Er verschijnt een pop-upvenster waarin u wordt gevraagd een wachtwoord in te voeren om het huidige werkblad te beveiligen. Zie screenshot:

5. Klik vervolgens op OK. Uw werkblad is nu beveiligd, maar u kunt de overzichtssymbolen in dit beveiligde werkblad nog steeds uitvouwen en samenvouwen. Zie screenshot:

Opmerking: Als uw werkblad al beveiligd is, werkt deze code niet.