Groupering uitvouwen in beveiligd werkblad

[amb1975]

Goedendag,

Ik heb een beveiligd blad in een excelbestand, maar wil in dat werkblad de groupering functie behouden. Uitklappen van een groupering moet mogelijk blijven ook al is het blad beveilgd (Ik heb wel enkele cellen open gelaten voor bewerking). In dit forum en via diverse andere bronnen heb ik wel onderstaande code gevonden, echter die lijkt in eerste instantie niet te werken. Na het opslaan van het bestand met deze code in this workbook vraagt hij toch steeds om het opheffen van de beveiliging.

Private Sub Workbook_Open()
Dim x As Long

For x = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(x)
.Protect UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next

End Sub

Mijn vragen:
Deze code zou ik dus in "this workbook" moeten plaatsen. En dan? Visual basic sluiten en bestand opslaan? Ook is mij niet duidelijk of deze code taalafhankelijk is (ik werk hier met een nederlandse Excelversie), en wat nu precies de stappen zijn na het kopieren en plakken van deze code.

Hopelijk kan iemand mij hiermee helpen?

Bij voorbaat dank voor de assistentie!

 

[Warme bakkertje]

In ThisWorkbook

Private Sub Workbook_Open()
Dim x As Long
For x = 1 To ActiveWorkbook.Sheets.Count
    With ActiveWorkbook.Sheets(x)
        .EnableOutlining = True
        .Unprotect
        .Protect UserInterfaceOnly:=True
        End With
Next
End Sub

Opslaan, sluiten en heropenen.