Autofilter, Gruppierung und Gliederung trotz Blattschutz nutzen

Wenn Sie in einer Tabelle den Blattschutz gesetzt haben, können Sie im Standard nicht auf Autofilter, Gruppierung und Gliederung zugreifen.

 

Mit diesem kleinen Makro schaffen Sie Abhilfe

 

Option Explicit

Private Sub Workbook_Open()
'gilt für alle Blätter
Dim ws As Worksheet
For Each ws In Worksheets
  ws.Protect userinterfaceonly:=True, Password:="Geheim" ' Ihr Passwort bitte anpassen
  'Für ungeschützte Tabellen reicht: ws.Protect userinterfaceonly:=True

  ws.EnableAutoFilter = True 'ermöglicht Ihnen den Zugriff auf den Autofilter
  ws.EnableOutlining = True 'ermöglicht ihnen den Zugriff auf Gruppierung undGliederung
Next ws

End Sub