Merhaba R21 hücresinde veri doğrulama ile "Hayır veya Evet" seçiyorum. Aşağıdaki kod çalıştığında U21 hücresi kilitlenmesini veya açılmasını istiyorum. Kodu çalıştırıyorum ama hiçbir şey olmuyor. Yardımcı olabilir misiniz?
Private Sub Worksheet_Change(ByVal Target As Range)
Call Kilitle
End Sub
Sub Kilitle()
Sayfa5.Unprotect ""
Sayfa6.Unprotect ""
If Sayfa5.Range("R21").Value = "Hayır" Then
Sayfa5.Range("U21").Locked = True
Exit Sub
ElseIf Sayfa6.Range("R21").Value = "Hayır" Then
Sayfa6.Range("U21").Locked = True
Exit Sub
End If
Sayfa5.Protect ""
Sayfa6.Protect ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call Kilitle
End Sub
Sub Kilitle()
Sayfa5.Unprotect ""
Sayfa6.Unprotect ""
If Sayfa5.Range("R21").Value = "Hayır" Then
Sayfa5.Range("U21").Locked = True
Exit Sub
ElseIf Sayfa6.Range("R21").Value = "Hayır" Then
Sayfa6.Range("U21").Locked = True
Exit Sub
End If
Sayfa5.Protect ""
Sayfa6.Protect ""
End Sub