Sormadan kapatma

[muratgunay48]

Arkadaşlar merhaba. İçinde tarih barındıran bir excel dosyasını kapat dediğim zaman "DEĞİŞİKLİKLER KAYDEDİLSİNMİ" diye uyarı vermeden kapatma macrosu kullanıyorum.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Excel.Application.Windows.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
ThisWorkbook.Close 0
End If
End Sub

Şimdi bu makro ile direk sormadan kapatıyor. Ama kaydetmeden. Peki sormadan, direk değişiklikleri kaydederek kapatmasını nasıl sağlarım.
Mantıken Close 0 değerini 1 yaptığım zaman kaydetmesi lazım ama etmiyor.
Yardımlarınız için şimdiden teşekkür ederim.
Elinize emeğinize sağlık. Saygılarımla.

 

[YUSUF44]

Araya (kapatma satırından önce) activeworkbook.save satırı ekleyip dener misiniz?

 

[muratgunay48]

Araya (kapatma satırından önce) activeworkbook.save satırı ekleyip dener misiniz?

Öncelikle ilginiz için teşekkür ederim.
End Sub satırından önce ekledim dediğiniz gibi, kaydederek sormadan kapatıyor. Çok teşekkür ederim.
Elinize emeğinize sağlık.
Saygılarımla.