Blattschutz - Autofilter verwenden
11.09.2006 20:46:43
Kornelia
ich habe hier vor einiger Zeit Hilfe erhalten. In meiner Excel Arbeitsmappe sind Arbeitsblätter mit Blattschutz mit Kennwort eingerichtet. Auf einem Blatt sind aber auch Autofilter. In Excel 2003 läßt sich beim Schutz zwar vorab einrichten, dass die Autofilter verwendet werden können, jedoch liegt das Problem darin, dass meine Arbeitsmappe auch in Excel 2000 oder älter verwendet wird.
Hilfe hatte ich hier bekommen mit einem VBA-Code, wo der Kennwort-Schutz aufgehoben wird, um neue Zeilen einfügen und dass der Autofilter aktiviert wird. Das Makro lässt sich unter Excel 2003 ausführen, aber danach wird nur der Schutz wieder aktiviert, aber der Kennwortschutz geht verloren. In Excel 2000 wird nach Ablauf dieses Makros wieder Blattschutz mit Kennwort aktiviert.
Das Makro in Excel 2000 lautet:
With ActiveSheet
.EnableAutoFilter = True
.Protect userInterfaceOnly:=True
End With
In Excel 2003 funktioniert das Makro nur, wenn ich die folgende Zeile dem Makro hinzufüge:
.Protect AllowFiltering:=True
Dann habe ich jedoch das Problem, wenn ich in Excel 2000 das Makro ausführe, dass es nicht mehr funktioniert.
Hat jemand eine Idee, wie ich das in einem Makro vereinigen kann und das Makro in Excel 2000 und Excel 2003 korrekt läuft?
Für schnelle Hilfe bin ich dankbar.
Gruss Kornelia