Zellschutz aufheben zum Eintragen eines eigenen Werts, wenn ...

[ExcelA]

   
Hallo zusammen,
Screenshot anbei.

Zu lösen:
Es soll ein eigener Stundensatz eintragbar sein, 
wenn in der Zelle davor die Kategorie "d" via Dropdown gewählt wurde.

Standardmäßig ist ein SVerweis hinterlegt, der automatisch den Stundensatz aus Tabelle "Liste" angibt, 
je nach Kategorie. 

C9:C12 sind geschützte Zellen via Blattschutz. 
Für den Fall, dass in B9:B12 irgendwo "d" ausgewählt wird, 
soll der Blattschutz in Spalte C in der jeweiligen Zeile ausgeschaltet werden,
damit man einen eigenen Wert als Stundensatz eintragen kann.

Danke für Eure Hilfe!

[schauan]

Hallöchen,

das wird nur mit einem Makro was. Das kommt in das Codemodul vom betreffenden Tabellenblatt.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Aktion bei Zellaenderung
'Wenn der Bereich nicht innerhalb B9:B12 liegt und nur eine Zelle betroffen ist, dann
If Not Intersect(Target, Range("B9:B12")) Is Nothing And Target.Cells.Count = 1 Then
    'Blattschutz aufheben
    ActiveSheet.Unprotect Password:="GehHeim"
    'Zelle nicht geschuetzt wenn in B ein d steht, sonst geschuetzt
    Target.Offset(, 1).Locked = Target.Value <> "d"
    'Blattschutz setzen
    ActiveSheet.Protect Password:="GehHeim"
'Ende Wenn der Bereich nicht innerhalb B9:B12 liegt und nur eine Zelle betroffen ist, dann
End If
End Sub