seçilen sayfanın silinmesini engelleme

[egitimsart]

merhaba,
üzerinde çalıştığım bir uygulamada çeşitli sayfalar ComboBox ile seçiliyor. istendiğinde bu sayfalardaki belirlenen hücrelerdeki bilgiler silenebiliyor. ancak giriş sayfası olarak düzenlenen sayfa seçildiğindede bilgiler silinebiliyor. halbuki bu sayfada silinmesini istemediğim bilgiler yer alıyor. Giriş sayfası seçilip silinmek istendiğinde bu sayfadaki bilgileri silemezsiniz şeklinde bir mesaj vererek bu sayfadaki bilgilerin silinmesini nasıl engelleyebilirim.
uzun süredir üzerinde uğraşmama rağmen içinden çıkamadım. yardımınızı rica ediyorum.
teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kod kullanabilirsiniz.

if activesheet.name="giriş sayfanızın adı" then
msgbox "Giriş sayfasındaki bilgiler silinemez"
exit sub
end if

 

[egitimsart]

sn. leventm
ilginize ve çabuk cevabınıza teşekkür ederim.
ancak sanırım sorunumu tam açıklayamadım.
bir form üzerinde 3 sayfalık bir MultiPage var
Multi page üzerindeki sayfaların birindede iki adet ComboBox var.
bunlardan biri Çalışmanın sayfalarını seçiyor diğeride seçilmiş olan sayfadaki girilen bilgileri siliyor.
ben giriş sayfası seçildiği taktirde bu sayfadaki bilgilerin uyarı vererek silinmesini engellemek istiyorum
Furmun initialize bölümüne, combobox_Change bölümünde uygulamama rağmen sonuç alamadım.

Kodlar:
Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case Is = "---------------": ComboBox2.Value = "--------------": ' uyari_gelirler
Case Is = "Gelir Bilgileri": ComboBox2.Value = "uyari_gelirler": uyari_gelirler
Case Is = "Gider Bilgileri": ComboBox2.Value = "uyari_giderler": uyari_giderler
Case Is = "Ortak Giderler": ComboBox2.Value = "Ortak Giderler": uyari_ortak
End Select
End Sub

 

[Seyit Tiken]

Sekmeleri gizlemeyi deneyiniz.

 

[egitimsart]

Sn.Levenym,
verdiğiniz kod düzgün çalışıyor.
hata benden kaynaklanmış.
kodu yanlış yerde uyguladığımdan çalıştıramamışım.
ikinci gönderdiğim mesajı dikkate almayın.
ilginize teşekkürler...