Satırda Değişikliğe İzin Vermesin

[baydeniro]

Merhaba arkadaşlar. Şöyle bir koşul algoritması olabilir mi ?
B Sütunundaki hücrelerde WEB yazılı ise o Satırda herhangi bir değişikliğe izin vermesin

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect "12345"
    Cells.Locked = False
    If UCase$(Cells(Target.Row, "B")) = "WEB" Then
        Target.EntireRow.Locked = True
    End If
    ActiveSheet.Protect "12345"
End Sub

 

[baydeniro]

Sayın Korhan Ayhan tek kelime ile süper, çok çok teşekkür ederim, sağlıcakla kalın.