Hallo,
ok, prima, Du setzt den Filter im Code der Färbe-Proc ja neu, da muß der Parameter auch rein:
Call ActiveSheet.Protect(Password:="******", userinterfaceonly:=True, AllowFiltering:=True)
Gruß,