Şarta Bağlı Hücre Kilitleme

[ozuberk]

Merhaba,

U3 hücresinde "Normal" yazıyorsa W3 hücresinin kilidi açılsın, "Normal" yazmıyor ise kilitlesin yapmak mümkün müdür? (Aynı işlem U101hücresine kadar devam etmeli)

Teşekkürler

 

[hamitcan]

Sayfa1'in kod kısmına;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [u3:u101]) Is Nothing Then Exit Sub
    If Target.Text = "Normal" Or Target.Text = "normal" Then
        ActiveSheet.Unprotect
        Cells(Target.Row, "w").Locked = False
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        Cells(Target.Row, "w").Locked = True
        ActiveSheet.Protect
    End If
End Sub

ThisWorkBook Kısımına;

Private Sub Workbook_Open()
    Sayfa1.Unprotect
    Sayfa1.Locked = False
    Sayfa1.Columns("w").Locked = True
    Sayfa1.Protect
End Sub

 

[ozuberk]

Hamit Can hocam elinize sağlık çok güzel olmuş. Küçük bir sorun var “sayfa1.Locked = False” olan yer hata veriyor. (Hatada: Method or data member not found)

 

[hamitcan]

sayfa1 yerine sheets("sayfa ismi") şeklinde kullanmayı deneyin.

 

[ozuberk]

Teşekkürler elinize sağlık