Gruppierung bei Blattschutz

Sub Workbook_Open()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect UserInterfaceOnly:=True, Password:="Mein Passwort"
WsTabelle.EnableOutlining = True 'für Gliederung
'WsTabelle.EnableAutoFilter = True 'für Autofilter
Next WsTabelle
End Sub