Hoi, ik heb een werksheet met daarin bladen die allen beveiligd moeten zijn. Nu wil ik wel kunnen groeperen en kunnen filteren. Via het gevonden code is dit gelukt groeperen gelukt echter filteren niet?? Wat kan dit zijn. Dit is code die ik nu heb:

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

google "excel vba protect filter" en vind http://office.microsoft.com/en-us/ex...001098270.aspx

__________________