habe einen Code erhalten, mit dem Autofiltern trotz Blattschutz möglich ist. Funktioniert auch. Nur leider nicht mehr wenn ich die datei schließ und wieder neu öffne.
Mit welchem Befehl wird der Code automatisch ausgeführt?
Private Sub Autofilter_aktivieren()
With Sheets("(1)")
.Protect Password:="3789", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
Vielen Dank!
Gruß,
Bulli