Beveiliging werkblad -> groeperen

[Maatjuuh]

Beste lezer,

 

Ik zit met het volgende probleem.

Als ik in Excel 2007 een tabblad beveilig kan ik geen gebruik meer maken van groeperen. Gezien de omvang van dit bestand is dit echter voor de eindgebruiker wel noodzakelijk.

 

Online heb ik gevonden dat ik dit kan oplossen door de onderstaande macro op te nemen in ThisWorkbook..

 

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

Dit werkt inderdaad netjes. Echter kan ik nu geen gebruik meer maken van filters en kan ik in de gedeblokkeerde invoercellen nu ook geen waardes meer intypen.

Hoe kan ik dit aanpassen? Extra regeltje opnemen in de macro? Zo ja, welke dan?

 

Alvast bedankt voor jullie hulp!

 

Groetjes Erik