hücreyi pasif yapma

[tuana1326]

Mrb arkadaşlar sizden bi konuda yardımınızı istiyorum şimdiden ilgilenenlere teşekkür ederim.Excel de 4 hücre içerisinden birine değer girildiyse diğer hücrelerin bu değer girişinden sonra pasif olmasını istiyorum(onlara değer girişi yapılamasın) ama yapamadım bu konuda bilgi de bulamadım yardımınızı bekliyorum.

 

[Orion1]

Dosyanız ektedir.
Ama makrolar devre dışı bırakıldığında bir işe yaramaz.
Veri doğrulama yapmak daha iyi ama onuda bilen arkadaşlara soralım baksınlar ben uğraştım ama olmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A4]) Is Nothing Then Exit Sub
If WorksheetFunction.CountA(Range("A1:A4")) > 1 Then
    Application.EnableEvents = False
    Target.Select
    MsgBox "A1:A4 aralaığında dağa önceden veri girilmiş" & _
    "Başka veri giremezsiniz.", vbCritical, "UYARI"
        Target.Value = Empty
    Application.EnableEvents = True
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

VERİ DOĞRULAMA ile yapılmıştır.

 

[tuana1326]

çok teşekkür ederim elinize sağlık oldu