Hallo zusammen
Vielen Dank für eure Hilfe. Habe mein Problem nun folgendermassen gelöst:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="" ' Mit Passwort 123, dann ändern(Password:="123")
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Next wksSheet
ThisWorkbook.Save
End Sub
Ich danke euch trotzdem recht herzlich!