Office: (Office 2007) Blattschutz und Zellenschutz über Zellenfarbe steuern

Hallo zusammen,

ich habe eine bescheidene Frage zu der ich hier im Forum leider keine Lösung gefunden habe. Zwar gibt es zwei ähnlich gelagerte Posts, aber der entscheidende Hinweis fehlt.

Ich nutze diverse größere Arbeitsblätter die nur so vor Formels strotzen. Um die Übersicht nicht zu verlieren wurden die Zellen in denen Eingaben möglich sind mit einem blassen Grün hinterlegt. Da die Zellen nicht immer unbedingt zusammenhängen möchte ich mir den Aufwand sparen in jeder Zelle das 'Gesperrt Flag' abzuschalten um nach der Blattsperrung nur noch Eingaben in den grünen Zellen zu ermöglichen.

Ist es möglich über die Zellenfarbe alle nicht grünen Zellen zu sperren und die grünen freizugeben!?

Ich hoffe ihr versteht mich ...

Danke im Voraus.

Thomas

:)

 

Moin, Thomas,

per Union einen Bereich erstellen oder einen als Namen abgelegten und diesen dann in einer For Each-Schleife durchlaufen und die Sperrung nach Änderung vornehmen, Bereich ggf. abschließend vornehmen / anpassen.

 

Hallo Jinx,
Danke für den Tipp aber ich verstehe nur Bahnhof.

Es muss kein OnChange Request durchlaufen werden. Es geht nicht darum, dass wenn ich auf einer grünen Zelle stehe, diese freizugeben und wenn der Focus weg ist diese wieder zu sperren. Ich will mir nur den Aufwand sparen jede der knapp 400 Zellen manuell auf nicht gesperrt zu setzen bevor ich das Blatt sperre. Mehr nicht ...

Daher würde es mir reichen VBA manuell zu starten und dann einfach alle nicht grünen Zellen zu sperren.

Ich weiss leider nicht wie ich mich anders ausdrücken soll...

Sorry und trotzdem Danke für den Ansatz.

Thomas

 

Moin, Thomas,

versuche den folgenden Code mal als Beispiel in einer neuen Mappe - alle hellgrünen Zellen sollten danach zu bearbeiten sein:

Code:

Die Arbeit, die nötigen Zellen herauszufinden, kann ggf. über ein Makro erfolgen, was die Adressen der hellgrünen Zellen in den Direktbereich schreibt, damit man diese von dort in den Makrotext übernehmen kann.

 

Hi Jinx,

dein Code hatte leider den Nachteil, dass ich die Zellen benennen musste. Er war aber ein super Denkanstoss der mich der Lösung bis auf 99 % näher gebracht hat. Danke dafür *grins

Mein Skript setzt auf dem kompletten Blatt zunächst das 'Gesperrt'-Flag und hebt es dann innerhalb der Range anhand der Farbe wieder auf. Das funktioniert auch einwandfrei in einer Test Tabelle.

Code:

Befinden sich in der Tabelle aber verbundene Zellen, dann bricht das Skript beim ersten cel.Locked ab, da er ja z. B. nur B5 anspringt und nicht wie bei verbundenen Zellen B5:B6.

Kannst Du mir hierbei bitte nochmal die Initialzündung geben.

Danke nochmal
Thomas

 

Hallo nochmal,

für all die Wissenshungrigen hier meine komplette Lösung, inkl. verbundener Zellen.

Code:

Es funktioniert so wie erwartet und ich habe wieder mal was gelernt. Danke Jinx. *wink.gif*

Thomas