Wieso wird nicht gespeichert

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    '---------------- Filtern raus  --------------------------------------
    '
Public Sub Filter_aus()
    Application.ScreenUpdating = False
    
    ThisWorkbook.Worksheets("Datenbank").Unprotect (getStrPasswort)
  
    ThisWorkbook.Worksheets("Datenbank").Range("A2:L2").Select
    If ActiveSheet.AutoFilterMode Then
       Selection.AutoFilter
    End If
    Dim Z As Long
        ' Range("b2").Select
     Z = ThisWorkbook.Worksheets("Datenbank").Range("b2").End(xlDown).Row
         ThisWorkbook.Worksheets("Datenbank").Range(Cells(3, 2), Cells(Z, 12)).Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Application.ScreenUpdating = True
        ThisWorkbook.Worksheets("Datenbank").Protect DrawingObjects:=True, Contents:=True, Scenarios _
                :=True, Password:=getStrPasswort                                      'schützen
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs
End Sub
Was habe ich Falsch gemacht ?

mfg wolfgang