Bazı sayfaların kapatılmasını yasaklamak

ErolU · 17 May 2021

Arkadaşlar,
Excel çalışma kitabını sağ üst köşedeki X işareti ile kapatırken şöyle bir koda ihtiyacım oldu:

Eğer Veri1, Veri2, Veri3, Veri4 isimli sayfalarda isem X işaretine tıkladığımda sayfayı kapatmasın ve MsgBox "Buradan kapatmak yasak." yazısı çıksın.
Eğer yukarıdaki sayfalardan başka bir sayfada isem X işaretine basınca beni ANA SAYFA'ya götürsün.

Oluru varsa yardımlarınızı rica ediyorum.

ExcelDepo · 17 May 2021

VB penceresinde, BuÇalışmaKitabı kodlarının aşağıdaki alanına yazacağınız kodlar işlemi yapacaktır.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

ErolU · 17 May 2021

Teşekkürler, yazdığınız başlık altına yazılacağını biliyorum fakat kodlar nasıl yazılacak ve böyle bir şey olabilir mi onu bilmiyorum.

ExcelDepo · 17 May 2021

Gerekli kodları yazdıktan sonra, yanlış aklımda kalmadıysa, Cancel = True satırı yeterli olacaktır.

Ömer BARAN · 17 May 2021

@Erol U.

Neticede bir sayfa gizlendiğinde, başka bir sayfa aktif sayfa haline geldiğine göre en iyisi,
ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulanacak Workbook_SheetActivate olayını kullanmak.

Bir'den fazla sayfa için aynı işlem uygulanmak istenirse, koddaki If .... Then kısmının
If Sh.Name = "Tatil" OR Sh.Name = "XXX" Then şeklinde düzenlenmesi yeterli olur.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

ErolU · 17 May 2021

Ömer Bey,
Amacım sayfa gizleme işlemi değil. Bir yanlış anlama var sanırsam.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Yukarıdaki başlık altına yazılan Cancel = True kodu ile sayfayı kapatan X (sağ üst köşedeki) işareti etkisizleştiriliyor.
Bu etkisizleştirme işlemi bazı sayfalarda geçerli olsun diğer sayfalarda geçerli olmasın istiyorum.

Eğer Veri1, Veri2, Veri3, Veri4 isimli sayfalarda isem X işaretine tıkladığımda sayfayı kapatmasın ve MsgBox "Buradan kapatmak yasak." yazısı çıksın.
Eğer yukarıdaki sayfalardan başka bir sayfada isem X işaretine basınca beni ANA SAYFA'ya götürsün.

Ömer BARAN · 17 May 2021

O zaman şöyle olur.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

ErolU · 17 May 2021

Böyle bir çözüm arıyordum.
Çok teşekkürler, sağ olun sayın Ömer BARAN.
Sorum çözüme kavuşmuştur.

	Puantaj Sayfasına Bazı Kurallar Dahilinde Aktarma sedat2161 28 Eyl 2020 Makrolar ile İlgili Sorular
	Makro ile bazı işaretlere sınırlaması koyma ExcelDepo 12 Ara 2021 Makrolar ile İlgili Sorular
	Kapalı Klasörden Bazı Uzantılı Dosyaları Çağırma wolfret 29 Eki 2018 Makrolar ile İlgili Sorular
	Tarih ve Saat Bazında Filtre Yaparak Kişi Saydırma ssavas 20 Kas 2024 Makrolar ile İlgili Sorular
	Kodların bazılarının olmamasi cakarem 1 Ara 2019 Makrolar ile İlgili Sorular

Bazı sayfaların kapatılmasını yasaklamak

Kısa Açıklama