Kritere göre hücre kilitleme

[ozuberk]

Merhaba A1 hücresi dolu olduğunda A11 aralığının kilitlenmesi bu kodun A1000 hücresine kadar devam etmesini nasıl sağlayabilirim.

Teşekkürler, kolay gelsin.

 

[askm]

Aşağıdaki kod A sütunundaki veriler dolu ise B sütununu kilitler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A1000]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "a"
ActiveSheet.Range("A1:A1000").Locked = False
If Target.Value <> "" Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Locked = True
End If
ActiveSheet.Protect "a"
End Sub

 

[ozuberk]

Üstat benim yapmak istediğim A1 dolu ise A1:K1, A2 dolu ise A2:K2 vs. aralığının kitlenmesi. Örneğin A1 hücresini kilitlemek mümkün değil ise B1:K1 arası. Dosyayı kasmaması içinde bu aralığın A1 ile K1000 aralığında olması.

 

[askm]

Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Locked = True bu satırı
Range(Cells(Target.Row,"B"), Cells(Target.Row, "K")).Locked = True olarak değiştirirseniz B:K aralığını kilitler.

 

[ozuberk]

B:K aralığını kilitlemek istemiyorum.
A1 hücresine veri girdiğimde A1:K1 aralığı kilitlensin
A5 hücresine veri girdiğimde A5:K5 aralığı kilitlensin
Aradakı A2:K2, A3:K3 ve A4:K4 hücreleri kilitlenmesin