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
|