belirli bir adrese veri girilmesin

[atöz]

Merhaba,
sayfa koruma nın yaptığını yani belirli bir edrese (örneğin A1100) veri girişini engelleyen makro yazılabilir mi ? Yani bu adreste veri girişi yapmaya teşebbüs edildiğinde aynı " içerik değiştirilemez" şeklinde uyarıyı versin .sayfa kilitle fonksıyonunu kullanmak istemiyorumda.. Target fonksıyonu ile olabilir sanırım.

Yardımlar için teşekkürler.

 

[atöz]

Bu konuda acil yardıma ihtiyacım var. Teşekkürler.

 

[Ayhan Ercan]

Merhaba Sayın atöz

Sayfanın Kod Pencersine aşağıdaki kodu yazıp deneyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("[COLOR=red][B]A1:A100[/B][/COLOR]")) Is Nothing Then Exit Sub
MsgBox "İçerik Değiştirilemez", , "UYARI"
Range("B1").Select
End Sub

 

[atöz]

Ayhan bey teşekkürler,
Yapmak istediğim aynı sayfa kilitlemede olduğun gibi , hücre üzerine gelinebilsin ama veri girişi yapılmak isteyince "kilitli" mesajı versin.Benim aklıma gelen , hücre change olduğunda , hücre değerini tekrar eski değerine getirip mesajı verdirmek ama bunu kodlayamadım.
Yardımlarınız için teşekkürler.

 

[Orion1]

Veri doğrulama uygulayınız.

 

[atöz]

veri doğrulamadan nasıl yapulabileceğimi açıklayabilirmisiniz.

 

[Orion1]

Ekli dosyayı incleyiniz.
Veri doğrulama'yı seçip inceleyiniz.

 

[atöz]

ek teki dosyada a1:a10 adersine veri girişi yapılabiliyor

 

[Orion1]

ek teki dosyada a1:a10 adersine veri girişi yapılabiliyor

Veriyi giriyorsunuz ama değiştiremiyorsunuz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[Ayhan Ercan]

Merhaba Sn Korhan Ayhan Hocam..

Affınıza sığınarak ufak bir gözden kaçmayı hatırlatmak istedim.

"Renkli Alana Veri Girmeyi Deneyiniz" demişsiniz.

Oysa Kodda If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
yazılı...

 

[Korhan Ayhan]

Selamlar,

Ayhan bey bilerek o eklemeyi yaptım. Çünkü arkadaşımız belirli bir alana müdahale edilemesin diye belirttiği için. Sarı alanda kullanıcı bir değişiklik yapamazken diğer alanları dilediği gibi kullanabilmektedir.

 

[Korhan Ayhan]

Selamlar,

Ayhan bey,

Kusura bakmayın A10 yerine D10 yazmalıydım. Üstteki mesajımdaki dosyada gerekli düzenlemeyi yaptım. Ayrıca dikkatiniz içinde teşekkür ederim.