Kod yazdığım kutucuklara veri girişini önlemek istiyorum!

[olcaylife]

fonksiyon yazdığım kutucuklara manuel olarak veri girişini önlemek istiyorum!

hazırladığım programın kullanıcıları acemi düzeyde olduğu için yanlışlıkla fonksiyon yazdığım kutucuklara değer girebiliyorlar,bunu önlemek istiyorum eğer yazdığım kutucukları enable yapabilrsem bunu yapacağımı sanıyorum ama enable nasıl yapıcağımı bilmiyorum yardım edeseniz memnun olurum.

 

[Mahmut Bayram]

Örnek dosya ekler misiniz?

 

[olcaylife]

sonuç kısmındaki fonksiyon yazılı kutucuğa manuel olarak değer girilmesini istemiyorum.

 

[Mahmut Bayram]

Manuel derken neyi kastediyorsunuz onu anlamadım :dusun:
Acaba formülü bozamasınlar mı demek istediniz. :dusun:

 

[olcaylife]

o kutucuk sayı1 & sayı2 nin toplama işleminin sonucunu veren kutucuk yanlışlıkla tıklanıp bi değer verildiğinizi düşünün, artık toplama işleminin sonucunu vermek yerine sizin verdiğiniz değeri içerir.

 

[olcaylife]

ewet aynen öyle formulü bozmasınlar demek istedim.

 

[Mahmut Bayram]

Şu işlemleri sırayla yapınız.

'*********Sayfanın kod bölümüne***************************
Option Explicit

Private Sub Worksheet_Deactivate()
   Application.OnKey "{del}"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.HasFormula Then
      Application.OnKey "{del}", "mesaj"
   Else
      Application.OnKey "{del}"
   End If
End Sub
'*********ThisWorbook kod bölümüne*************************
Option Explicit
'*********bunu da modüle *********************************
Sub mesaj()
MsgBox " Formül silmek yasak"
End Sub

Ekleyiniz.

 

[Mahmut Bayram]

Olcay bey çift tıklama ile formül backspace ile silinebiliyor.
Bunu nasıl yapıcam diyorsunuz gibi me geliyor.
En iyisi bir örnek dosya eklemek.
Ekteki örneği inceleyiniz.

 

[olcaylife]

ya bu sayfanın kod bölümü,ThisWorbook kod bölümü ve modül ün nerde olduklarını söyleyebilirmisin :???:

 

[Mahmut Bayram]

Son mesajınızdan bir önceki mesajda tahmin etmiştim.
Yukarıdaki örnek dosyada formülü silmeye çalışınız.:mrgreen:
Dosyayı açarken açılışta makroları etkinleştirmelisiniz.

 

[alpi]

Sayın Partner formüllerin kullanıcılar tarafından değiştirilememesi için Sayfa koruması yapmak daha doğru olmaz mı?

 

[olcaylife]

ewet çalışıo del silme tuşuna basılınca çalışıo ama benim yapmak istediğim olay kutucuk seçili durumdayken değer girilemesin.Bu arada sayfa kod bölümünü,ThisWorbook kod bölümünü ve modülü nerde olduklarını buldum

 

[Mahmut Bayram]

Haklısınız sayın alpi o da olur.
Kendimizi kod işine o kadar kaptırdık ki. Konunun açıldığı başlığa falan hiç dikkat etmedim.

Araçlar
Koruma
Sayfayı koru
Seçeneklerinden istediğiniz korumayı da yapabilirsiniz.

 

[alpi]

Bir yolu daha var aslında Veri/Doğrulama. Hem bu yöntemle kullanıcıya iletide gösterilebilir.

 

[Mahmut Bayram]

Yeni hali ekte.
Yapılan değişiklik şudur.
Eğer hedef hücrede formül varsa başka bir adrese yönlendiriliyor. Bu yönlendirilien adres formülsüz olmalı.
Kolay gelsin.

 

[olcaylife]

evet partner son yaptığın olay tam istediğim gibi işime yarar ancak bunu nasıl yaptığını sölersen çok ii olur yardımlarınız için tşk ederim.

 

[Mahmut Bayram]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'burada sayfada her hücre seçilince yapılacak işlemler için kod yazılır
   If Target.HasFormula Then 'eğer hedef hücre formüllü ise
      Application.OnKey "{del}", "mesaj" 'delete tuşuna basılınca mesaj adlı makro modülden çağrılıyor
       Range("A1").Select 've A1 hücresi seçiliyor son değişikliği burada yaptım 
   Else
      Application.OnKey "{del}" 
   End If
End Sub

 

[olcaylife]

yaptığınız yardımlardan dolayı çok teşekkür ederim programıma uyguladım çok ii oldu kolay gelsin.