Zellschutz bei Autofilter funktioniert nicht
09.07.2003 16:39:21
Bernhard
ich habe unter Excel2000 das Problem, das ich in einem Blatt einen Autofilter setzen möchte (z.B. in Zeile 1), das Blatt bzw. die Zellen aber dennoch geschützt sein sollen.
Ich habe diese im Code folgendermassen gelöst:
...
ActiveWorkbook.Worksheets(1).Select
Range("A1:H1").Select
Selection.Autofilter 'Autofilter rein
ActiveSheet.EnableAutoFilter = True
ActiveWorkbook.Worksheets(1).Protect Password:="PWD", contents:=True, userInterfaceOnly:=True
...
Leider sind die Zellen aber anschliessend doch nicht geschützt, obwohl ein Blattschutz gesetzt ist und der Autofilter auch "bedienbar" ist, sprich mal filtern kann.
Wenn ich den Blattschutz dann rausnehme und mir die Zellenformtierung anschaue, ist plötzlich überall das "Gesperrt"-Flag im Reiter "Schutz" im Kontextmenüs gelöscht, die Zellen also ungeschützt.
Woran kann das liegen bzw. wie kriege ich die Zellen wieder vor Änderungen geschützt
Gruss,
Bernhard