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!

Unser Nervensystem besteht unter anderem aus den Teilen Sympathikus und Parasympathikus. Diese "Systeme" arbeiten sozusagen gegeneinander. Der Sympathikus sorgt für Reaktionen in unserem Körper, die wir nahezu gar nicht beeinflussen können und meist dazu dienen, unsere Leistung zu steigern. (Schnellerer Herzschlag bei Stress, Steuerung des Blutdrucks, etc.). Der Parasympathikus ist genau das Gegenteil. Er sorgt für die unwillkürlichen Steuerung der meisten inneren Organe und des Blutkreislaufs. Er wird auch "Erholungsnerv" genannt.