Autofilter "Aufsteigend / Absteigend sortieren " funktioniert im Gegensatz zu Einzelfilterkriterien bei geschuetztem Blatt nicht.
Gaengiges Makro ist fuer die Arbeitsmappe eingestellt:
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="test" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Woran koennte es liegen?
Mit Gruss
Ralf