Koşullu Hücre Kilitleme

6729626

Altın Üye
Katılım
31 Aralık 2005
Mesajlar
129
Excel Vers. ve Dili
Excel 2007 Türkçe
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

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,327
Excel Vers. ve Dili
2019 TR
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.
Kod:
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
 
Üst