Beveiligen maar wel kunnen groeperen

[BOUKES]

Ik heb een werkblad ( DASH) dat ik wil beveiligen maar waarin ik wel wil kunnen "groeperen"
Ik heb onderstaande code staan in "ThisWorkbook" . Het werkt alleen niet?

Private Sub Workbook_Open()
  With Sheets("DASH")
    .Protect UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

 

[E v R]

Heb je een (voorbeeld)bestandje waarin het niet werkt?

 

[BOUKES]

Uitleg

Tis een groot en private bestand?? Ik kan wel iets in elkaar zetten, maar weet niet of dat zin heeft

Eerdere code heb ik van dit forum geplukt en daar werkte ie wel in de bijlage

 

[JanBG]

Eerdere code heb ik van dit forum geplukt en daar werkte ie wel in de bijlage

Welke bijlage?

 

[BOUKES]

Zal m morgen plaatsen ok

 

[BOUKES]

Ik wil het eerste blad beveiligen maar wel kunnen groeperen. Welke code plaats ik dan?

 

[E v R]

De code uit post#1 doet het bij jou niet?

 

[BOUKES]

Nee, besturingselement werkt wel, groeperen niet meer???

 

[E v R]

vreemd, getest zonder andere code in het bestand? Enige bestand wat openstaat?

Sub tst()
Debug.Print Sheets("DASH").EnableOutlining
Debug.Print Sheets("DASH").ProtectionMode
End Sub

Wat geven bovenstaande commando's nadat je de code uit post#1 hebt gedraaid (F8)

 

[BOUKES]

Na opslaan en opnieuw openen

Code werkt ná opslaan bestand. Zal wel...............