Hücreye girilen değere göre diğer hücreyi kilitleme

[6729626]

Değerli Excel Dostları öncelikle hayırlı akşamlar;
Mesela b5 hücresinde "ben" değeri girdiğim zaman d5 hücresinin kilitlenmesini ve b5 hücresine "sen"girdiğim zaman ise c5 hücresinin kilitlenmesini nasıl yaptırabilirim. Eğer kilitli hücreye veri girmek istediğimde ise uyarı mesajını nasıl verdirebilrim. Bu hücre aralığı b5'den başlayın b42 ye kadar gidiyor. Ve tabi karşılarındaki d ve c hücreleri de.
Bir ikinci sorum ise en son bulunduğum mesela d5 (d sütünü sabit) hücresinde enter'a bastığımda bir alttaki satırın a hücresini nasıl seçtirebilirim. Teşekkürler kolay gelsin.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5:B42]) Is Nothing Then Exit Sub
On Error GoTo son
ActiveSheet.Unprotect
Range(Cells(Target.Row, "C"), Cells(Target.Row, "D")).Locked = False
If Target.Value = "sen" Then Cells(Target.Row, "C").Locked = True
If Target.Value = "ben" Then Cells(Target.Row, "D").Locked = True
ActiveSheet.Protect
son:
End Sub

 

[6729626]

Bu şekilde olmadı Sn.Orion2: Ben veriyi listeden seçiyorum ondan olabilirmi acaba?

 

[Orion1]

Bu şekilde olmadı Sn.Orion2: Ben veriyi listeden seçiyorum ondan olabilirmi acaba?

Listeden seçilmiş şeklinde dosyayı hazırladım.Sorun yok çalışıyor.
Örnek dosyaya bakınız.

 

[6729626]

Bir örnek dosya eklersem sanırım sorunum daha iyi anlaşılır. Bir yerde bir yanlış yapıyorum ama nerde? İlginize teşekkür ederim.
Ayrıca enter olayına bir bakarsanız.

 

[6729626]

Yardımlarınızı bekliyorum

 

[Orion1]

Dosya bozulmuş sanırım.
Manuel ile Sayfa koruma yapsamda ilgili hücrede sayfa koruması çalışmıyor.