Uygulama Kapanırken Soru Sormasın

[sbayyigit]

Arkadaşlar, yaptığım bir programda belli bir şart yerine geldiği zaman uygulamanın açılmaması için
application.Quit
komutunu verdim fakat kayıt yapma işi biraz zaman aldığı için kayıt etmeden kapanmasını istiyorum. bu nedenle
koda şu satırı ekledim.
Application.DisplayAlerts = True
fakat çıkarken yine sordu. daha sonra yine bu siteden yaptığım arama sonucu bulduğum kodu

thisworkbook sayfası içerisine

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
End Sub

kodlarını yazdım yine çıkışta;
yaptığınız değişiklikleri kaydetmek istiyormusunuz. sorusunu soruyor. Çıkışta bu soruyu sormaması için nasıl bir işlem yapmam gerekiyor.
selamlar....

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Düğme1_Tıklat()
Application.Quit
ActiveWorkbook.Save
End Sub

 

[Zeki Gürsoy]

Application.DisplayAlerts = True

True değerini "False" yapın.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

ActiveWorkbook.Close False

 

[sbayyigit]

Application.DisplayAlerts = True

True değerini "False" yapın.

sağol usta işlem tamam.