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
Jetzt würde ich aber gerne mittels einer Abfrage (Dialogfeld?) festlegen, ob eine vorher vorgenommene Selektion mit einem Blattschutz belegt wird, oder der gesamte Datenbereich (Range A1:AY500), natürlich wieder abhängig von der Zellfarbe.
Kann mir jemand helfen, ein solches Dialogfeld (mit zwei Auswahlmöglichkeiten (Selektion / GesamterDatenbereich, OK, Abbruch) in den Code zu integrieren?
Wäre riesig! ...... allerbesten Dank für die Unterstützung.