Zellenschutz
16.01.2004 09:43:01
Frank
ich hoffe, dass Ihr mir bei folgendem (echten) Problem weiterhelfen könnt:
In einer Excel-Datei mit mehreren Registern, in denen sich je eine Tabelle befindet, möchte ich, dass sich die Zellen im Tabellenkopf nicht mehr anwählen lassen.
Dazu markiere ich zunächst diese Zellen, deaktiviere sie im Dialogfeld "Format-Zellen-Schutz" und schütze sie mit "Extras-Schutz-Blatt schützen...".
Um diese Zellen überhaupt nicht mehr anwählen lassen zu können, rufe ich dann das Dialogfeld "Extras-Anpassen..." auf, wechsle auf die Registerkarte "Symbolleisten" und aktiviere das Kontrollkästchen "Steuerelement-Toolbox". Dann wähle ich für die Eigenschaft "EnableSelektion" die Einstellung "1-xlUnlockedCells".
Wenn nun über Extras-Schutz" der Blattschutz aktiviert ist, lassen sich geschütze Zellen überhaupt nicht mehr anwählen. So weit so gut.
Eine dauerhafte Speicherung dieser Einstellung erreiche ich, indem ich im Visual Basic Editor die folgende Programmzeile z.B. für die Tabelle im Register 1 eingebe:
Private Sub Workbook_Open()
Tabelle1.EnableSelection = xl UnlockedCells
End Sub
Die Frage ist nun: Wie kann ich denn zusätzlich erreichen, das diese Funktion xl UnlockedCells nur auf die Zellen im Tabellenkopf (z.B. auf die Zellen C7:H13), d.h. restriktiv wirkt?
Hintergrund:
Wenn der Zellenschutz in Verbindung mit der Einstellung "1-xlUnlockedCells" aktiviert ist, dann sind zwar die Tabellenkopfzellen wie gewünscht nicht mehr anwählbar. Ich habe aber noch die Zellen mit den Tabellenwerten (z.B. C14:H30), die auch schreibgeschützt sein müssen (Schutz vor unbeabsichtigten Änderungen und so).
Gleichwohl muß aber ein Zugriff per Hyperlink und die Filterfunktion auf diese Tabellenwertzellen gewährleistet sein, da ich per Hyperlink auf diese Zellen von einer Auswahlliste, die sich in einem anderen Blatt befindet, zugreifen möchte. Dieser Zugriff geht zwar bei (nur) aktiviertem Zellenschutz, aber nicht, wenn zusätzlich noch die Verbindung mit der Einstellung "1-xlUnlockedCells" oder dem Makro-Code besteht.
Vielleicht kann mir jemand weiterhelfen, vielen Dank schon im Voraus!
Gruß Frank
Anzeige