Koşullu Hücre Kilitleme

[serhatdemirer]

Merhabalar,

Şirkette tuttuğum excel dosyasında, C sütunundaki hücrelerde dropdown olarak "Çalışan" ve "Misafir" olarak iki seçenek var. Ben istiyorum ki; "Çalışan" seçilince D:J komple kilitlensin, "misafir" seçince herhangi bir şey olmasın. Nasıl yapabilirim bunu?

 

[serhatdemirer]

Şöyle bir kod ile çözdüm, kullanmak isteyen olursa;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C1004]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "Çalışan" Then Cells(Target.Row, "E").Locked = True
If Target = "Misafir" Then Cells(Target.Row, "E").Locked = False
If Target = "Çalışan" Then Cells(Target.Row, "F").Locked = True
If Target = "Misafir" Then Cells(Target.Row, "F").Locked = False
If Target = "Çalışan" Then Cells(Target.Row, "G").Locked = True
If Target = "Misafir" Then Cells(Target.Row, "G").Locked = False
If Target = "Çalışan" Then Cells(Target.Row, "H").Locked = True
If Target = "Misafir" Then Cells(Target.Row, "H").Locked = False
If Target = "Çalışan" Then Cells(Target.Row, "I").Locked = True
If Target = "Misafir" Then Cells(Target.Row, "I").Locked = False
ActiveSheet.Protect
End Sub