ich hoffe auf Eure Hilfe bzgl. eines Makrocodes.
Ich arbeite mit bedingten Formatierungen - z. B. dass alle Daten in der Vergangenheit grau hinterlegt sind. Diese "grauen" Zellen sollen nun schreibgeschützt werden.
Mir wird immer eine Kalenderwoche angezeigt, in Zelle B6 Kann ich die Kalenderwoche auswählen. Daraufhin ändert sich die Farbe in B14 bis z20. Nachdem ich also eine Kalenderwoche eingetragen habe, hätte ich gerne, dass die grauen Zellen schreibgeschützt werden.
Ich habe eine Beispieldatei angehängt und habe auch schon einen Versuch per VBA gestartet, was aber nicht zielführend war. Mein Code:
Private Sub cmdProtectSheet_Click()
Dim zelle As Range
Range("b14:u14").Select
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
Kann mir jemand helfen? Wäre euch suuuper dankbar.Viele Grüße
Michelle
Datei:
https://www.herber.de/bbs/user/113277.xlsm