bei geschütztem Arbeitsblatt Zellen nachträglich schützen

15/07/2009 - 11:15 von Michael Groß | Report spam
Hallo,

ich habe ein geschütztes Arbeitblatt, bei dem mehrere Zellen zur Eingabe von
Daten ungeschützt sind. Ich möchte wenn nun die ungeschützte Zelle F3,
DropDownListe mit den Auswahlmöglichkeiten 0;rot;blau, den Wert 0 hat
nachtràglich den Bereich F4:H27 per VBA schützen.
Die Private Sub Worksheet_SelectionChange Prozedur habe ich in dem Blatt
schon mal verwendet.
Kann mir da jemand auf die Sprünge helfen.

Vielen Dank im Voraus.
Michael
 

Lesen sie die antworten

#1 Claus Busch
15/07/2009 - 11:30 | Warnen spam
Hallo Michael,

Am Wed, 15 Jul 2009 11:15:27 +0200 schrieb Michael Groß:

ich habe ein geschütztes Arbeitblatt, bei dem mehrere Zellen zur Eingabe von
Daten ungeschützt sind. Ich möchte wenn nun die ungeschützte Zelle F3,
DropDownListe mit den Auswahlmöglichkeiten 0;rot;blau, den Wert 0 hat
nachtràglich den Bereich F4:H27 per VBA schützen.
Die Private Sub Worksheet_SelectionChange Prozedur habe ich in dem Blatt
schon mal verwendet.



Blattschutz aufheben, entsprechende Zellen über Zelle formatieren => Schutz
wieder sperren und dann Blatt wieder schützen.
ActiveSheet.Unprotect
Range("F3,F4:H27").Locked = True
ActiveSheet.Protect


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen