Şarta göre hücreyi kilitleme

[ozuberk]

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

 

[Levent Menteşoğlu]

Exit sub satırlarını kaldırarak deneyin.

 

[ozuberk]

Üstat aşağıdaki şekilde yapınca oldu. Teşekkür ederim.

Sub Kilitle()
Sayfa5.Unprotect "1234"
Sayfa6.Unprotect "1234"

If Sayfa5.Range("R21").Value = "Hayır" Then
Sayfa5.Range("U21").Locked = True
Sayfa5.Range("U21").FormulaHidden = False

ElseIf Sayfa5.Range("R21").Value = "Evet" Then
Sayfa5.Range("U21").Locked = False
Sayfa5.Range("U21").FormulaHidden = False

ElseIf Sayfa6.Range("R21").Value = "Hayır" Then
Sayfa6.Range("U21").Locked = True
Sayfa6.Range("U21").FormulaHidden = False

ElseIf Sayfa6.Range("R21").Value = "Evet" Then
Sayfa6.Range("U21").Locked = False
Sayfa6.Range("U21").FormulaHidden = False

End If

Sayfa5.Protect "1234"
Sayfa6.Protect "1234"
End Sub