aus dem Forum habe ich zum Aufheben der Autofiltereinstellungen folgenden Code gefunden und mit dem Passwortschutz ergänzt:
------------------
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
.ActiveSheet.Protect Password:="test"
.ShowAllData
.ActiveSheet.Unprotect Password:="test"
End If
End If
End With
Next wksSheet
ThisWorkbook.Save
End Sub
-------------------Leider funktioniert der Code nicht richtig, sondern bleibt bei ".ShowAllData" hängen.
Was muss ich hier ändern?
Gruß stormlamp