Koşullu Hücre Kilitleme

[6729626]

Sayfada A13 ten başlayarak eğer C sütününda "ÖD" yazarsam D ve G ile K hücre aralığının kilitlenmesini
Eğer C sütününda "NK" yazarsa E ve G ve hücre aralığının kilitlenmesi istiyorum, Bu hüclere 13 satırdan 1012.nci satıra kadar devam ediyor.
Bir çok yerde aradım ama hücre aralıklı olarak değilde belirli bir hücreleri kilitleme örnekleri var.
Yardımcı olursanız Şimdiden Teşekkür ederim.
Kolay Gelsin.

 

[AdemCan]

Sayfanın kod bölümüne ekleyiniz.
Hücre kilidinin işe yaraması için sayfaya koruma şifresi vermeniz gerekir.
ActiveSheet.Protect "1" ile sayfaya verilen koruma şifresi 1 dir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Or Target.Row < 13 And Target.Row > 1012 Then Exit Sub
ActiveSheet.Unprotect "1"
Cells.Locked = False

If Target.Value = "ÖD" Then
    Range("D3:D1012").Locked = True ' D sütunundaki hücreleri kilitler
    Range("G13:K1012").Locked = True ' G ile K sütunu arasındaki hücreleri kilitler
ElseIf Target.Value = "NK" Then
    Range("E13:E1012").Locked = True
    Range("G13:G1012").Locked = True    
End If
ActiveSheet.Protect "1"
End Sub