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

 

[Gijsbert1]

Zo misschien?

Private Sub Workbook_Open()
Dim x As Long
    For x = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(x)
            .Protect UserInterfaceOnly:=True[COLOR="#FF0000"], _
            AllowFiltering:=True[/COLOR]
            .EnableOutlining = True
            [COLOR="#FF0000"].EnableSelection = xlUnlockedCells[/COLOR]
        End With
    Next
End Sub

 

[Maatjuuh]

Bedankt voor deze oplossing.
Het lijkt gedeeltelijk te werken. Bij het opnieuw openen van dit bestand krijg ik af en toe (dus niet altijd) de volgende error:



het lijkt erop dat dit door de macro komt:


Enig idee hoe we dit weer kunnen oplossen?

 

[Gijsbert1]

En wat als je dat regeltje weghaalt?

 

[Maatjuuh]

Dat lijkt te werken! Dank je wel!