Groepering kan niet uitklappen wanneer beveiligd

[Boyd2505]

Hallo,

Ik heb een spreadsheet gemaakt waarin de bezetting van het personeel bijgehouden moet worden.
Deze sheet staat vol met formules maar de invulling gebeurt door derden.
Hierdoor wil ik mijn werkblad beveiligen.

Nu heb ik alleen in het werkblad verschillende afdelingen gegroepeerd, hierdoor zou het een overzichtelijk rapport moeten vormen.

Het probleem is alleen dat wanneer ik de werkmap beveilig, de mensen de groepen niet meer in en uit kunnen klappen.

Hoe kan ik dit oplossen?

Met vriendelijke groet,

B. Bakels

 

[Cobbe]

Je zal de beveiliging er via VBA op moeten zetten anders gaat het niet lukken:

Private Sub Workbook_Open()
  With Sheets(1)
    .Protect Password:="Geheim", UserInterfaceOnly:=True
  End With
End Sub

 

[Boyd2505]

Je zal de beveiliging er via VBA op moeten zetten anders gaat het niet lukken:

Private Sub Workbook_Open()
  With Sheets(1)
    .Protect Password:="Geheim", UserInterfaceOnly:=True
  End With
End Sub

Beste

Ik heb de code in het vak programmacode van het werkblad Personeel gezet.
Alleen ik kan vervolgens nog steeds typen in de beveiligde vakken.

Zou je mij een iets uitgebreidere uitleg kunnen bieden? Mijn VBA kennis is niet echt goed

 

[Cobbe]

De code moet NIET achter het werkblad komen maar in ThisWOrkbook.
Om te testen zet je de cursor tussen Sub en Thisworkbook en druk je 4 x F8
dan is je eerste werkblad beveiligd maar je kan de macro's en dus ook de groepering gewoon gebruiken.

 

[Boyd2505]

De code werkt nu zoals je zegt.
Alleen beveiligd hij nog steeds de groepering ook.

 

[Cobbe]

Doe deze code-aanpassing eens:

Private Sub Workbook_Open()
  With Sheets(1)
    .Protect Password:="Geheim", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

 

[Boyd2505]

Werkt perfect.
Danku