Zellen in Abhängigkeit von Zellfarben schützen?

Hallo,
zuallererst mal wünsche ich ein frohes Neues Jahr. :)
Ich habe eine Frage:
In einer recht großen Datei arbeite ich mit unterschiedlichen Farben in den Zellen, da nur wenige davon auswählbar sein sollen. Die Zellen, die mit Inhalt gefüllt und ausgewählt werden können, die lasse ich weiss .... den Rest, der schreibgeschützt und nicht auswählbar sein soll, hinterlege ich grau. Jetzt ist es mir aber recht mühsam, jedesmal hunderte von grauen Zellen auszuwählen und diese manuell schreib- und auswahlzuschützen.
Gibt es da eine Möglichkeit, dies über einen Code zu erledigen. Ich stelle mir das so vor, dass ich einen Bereich (z.B. A1:Z500) markiere und dann (nach Druck auf einen Befehlsbutton) all die Zellen auswahl- und schreibgeschützt werden, die in einer bestimmten Farbe hinterlegt sind (grau = auswahl- und schreibgeschützt, gelb = nur schreibgeschützt).
Wäre echt toll, wenn mir da jemand auf die Sprünge helfen könnte.
Verbindlichsten Dank und noch einen schönen Sonntag.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FarbenSchützen() Dim Zelle As Range ActiveSheet.Protect DrawingObjects:=False, _ Contents:=False, Scenarios:=False For Each Zelle In Selection If Zelle.Interior.ColorIndex = 15 Then Zelle.Locked = True '15=hellgrau/ 16=dunkelgrau/ 6 =gelb/ 19 = hellgelb Next ActiveSheet.Protect DrawingObjects:=True, _ Contents:=True, Scenarios:=True End Sub

Sub FarbenSchützen() Dim Zelle As Range ActiveSheet.Unprotect For Each Zelle In Selection Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 15, True, False) Zelle.FormulaHidden = IIf(Zelle.Interior.ColorIndex = 15, True, False) Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 6, True, False) '15=hellgrau/ 16=dunkelgrau/ 6 =gelb/ 19 = hellgelb Next ActiveSheet.Protect End Sub

Private Sub cmdProtectSheet_Click() Dim Zelle As Range For Each Zelle In Selection Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 15, True, False) Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 6, True, False) '15=hellgrau/ 16=dunkelgrau/ 6 =gelb/ 19 = hellgelb Next ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True, Scenarios:=True End Sub

Mit dem nachfolgenden Code funktioniert der punktuelle Blattschutz (Bereich selektieren, die Zellen mit der entsprechenden Farbe werden gesperrt). Vielen Dank für die Unterstützung.
Hier der Code:
===============================


Private Sub cmdProtectSheet_Click()
Dim zelle As Range
For Each zelle In Selection
If zelle.Interior.ColorIndex = 15 Then zelle.Locked = True
'15=hellgrau/ 16=dunkelgrau/ 6 =gelb/ 19 = hellgelb
'Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 15, True, False)
'Zelle.Locked = IIf(Zelle.Interior.ColorIndex = 6, True, False)
'15=hellgrau/ 16=dunkelgrau/ 6 =gelb/ 19 = hellgelb
Next zelle
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End Sub

===============================
Diesen Code habe ich auf einen Befehls-Button gelegt. Damit das auch über diesen Button funktioniert, habe ich in den Zelleigenschaften (Format-Zelle-Schutz) den Haken bei "gesperrt" für die gesamte Tabelle herausgenommen. .... und da taucht jetzt noch ein Problem auf. Nämlich das, dass nach Aufhebung des Schreibschutzes (ab und an muss ich doch an die grauen Zellen ran), gesetzt durch den Click auf den Befehlsbutton, die Zelle immer noch den Haken bei "gesperrt" hat .... damit funktioniert dann nicht mehr das Sperren per Selektion.
Wie müsste da der Eintrag im Code sein, damit er mir für die gesamte Tabelle den Haken bei "gesperrt" wieder rausnimmt (die auswahl der gesamten Tabelle macht da am meisten Sinn für mich). Das Entsperren würde ich gerne auf einen separaten Button legen.
Besten Dank für eine Antwort.

Private Sub cmdUnlockSheet_Click() ActiveSheet.Unprotect Password:="1234" Range("A1:AY497").Select Range("AY497").Activate Selection.Locked = False Selection.FormulaHidden = False Range("B65536").End(xlUp).Offset(2, 0).Select End Sub

Beliebteste Forumthreads (12 Monate)

Zellen in Abhängigkeit von Zellfarben schützen?

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen in Abhängigkeit von Zellfarben schützen?

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread