Excel'i X'dan Kapatmayı Engelleme

[metin_0606]

Excel 2016 sürümünü X kapatmayı nasıl engelleyebiliriz. Aşağıdaki kodu denedim ama 2016 sürümünde çalışmıyor sanırım

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Lütfen ÇIKIŞ Butonunu Kullanınız.", vbCritical
Cancel = True
End Sub

 

[Korhan Ayhan]

Kullandığınız kod klasik dosya kapanış olayı kod bloğudur. Tüm sürümlerde çalışması gerekir.

Siz kodu hangi bölüme uyguladınız?

 

[metin_0606]

Kullandığınız kod klasik dosya kapanış olayı kod bloğudur. Tüm sürümlerde çalışması gerekir.

Siz kodu hangi bölüme uyguladınız?

thisworkbook kısmına uyguluyorum Korhan hocam

 

[Korhan Ayhan]

Makroları etkinleştirip deniyorsunuz değil mi?

Ben şimdi 2010 versiyonda denedim, çalışıyor..

 

[metin_0606]

Makroları etkinleştirip deniyorsunuz değil mi?

Ben şimdi 2010 versiyonda denedim, çalışıyor..

Aynen korhan hocam ilk X bastığımda kapatmayı engelliyor ikinci defa X işaretine bastığımda çalışma kitabını kapatıyor. Sanırım bu sıkıntıyı 2016 versiyonunda yapıyor

 

[Korhan Ayhan]

Hiç mantıklı değil.

Başka bir kod var mı dosyanızda?

 

[metin_0606]

Hiç mantıklı değil.

Başka bir kod var mı dosyanızda?

Evet çalışmamda bir çok kod var

 

[Korhan Ayhan]

Bunlar sıkıntıya sebep oluyor olabilir.

Bence şöyle deneyin.

Boş bir çalışma kitabına ilk mesajınızdaki kodu uygulayıp deneyin.

Eğer sıkıntı çıkarmadan çalışıyorsa demek ki diğer kodlarınız bu sıkıntıya sebep oluyordur.

 

[metin_0606]

Bunlar sıkıntıya sebep oluyor olabilir.

Bence şöyle deneyin.

Boş bir çalışma kitabına ilk mesajınızdaki kodu uygulayıp deneyin.

Eğer sıkıntı çıkarmadan çalışıyorsa demek ki diğer kodlarınız bu sıkıntıya sebep oluyordur.

Dediğiniz şekilde denemiştim aynı sorunu yaşadım maalesef korhan hocam

 

[klop01]

Excel 2019 (32 bit) ile denedim x ile kapatmaya izin vermiyor. Sorunsuz çalıştı.

 

[Korhan Ayhan]

Bilgisayarınızı kapatıp açın sonrasında tekrar deneyin.

 

[metin_0606]

Bilgisayarınızı kapatıp açın sonrasında tekrar deneyin.

Makroyu başka bir bilgisayarda yüklü 2016 versiyonunda denettim sorunsuz çalıştı. Sanırım benim office ile ilgili bir sorun var sorun çözülmüştür. Saygılar.