satır kilitleme

[command]

Ekteki örnekte C satırında kilitli yazan satırlarda hiçbir değişiklik yapılamamasını istiyorum. kilitsiz yazıyorsa değişiklik yapılabilsin.

bu nasıl yapılabilir.

 

[isteobenim]

Selamlar,

Dosyanız ekte,
Kilitlemek istediğiniz hücreleri
Hücreleri Biçimlendir>koruma>kilitli olarak tıklayınız.
Koruma şiresi =1

 

[command]

Bu kodu buldum, ama şunu yapmam gerek.
C sütununda Kilitli yazısı varsa satırı seç ve aktif satırı kilitle

bunu nasıl yapabiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$J$10" Then
     If Range("J10").Value = "Direct Replacement" then
            Range("J18,J20,J22").Select
            Selection.Locked = False
     Elseif Range("J10").Value = "Restructure" then
            Range("J20,J26,J28").Select
            Selection.Locked = False
     End If

End if
End Sub