Kapanışta mesaj vermek

[massgrave]

Form'da bir değişiklik var ise formun çıkışında "DEĞİŞİKLİK VAR KAYDETMEYİ UNUTMA " mesajı vermek istiyorum. (daha sonrasında excelin kendi kaydet yazısı geliyor)
Eğerki excel tablosunda bir değişiklik yoksa birşey sormadan kapanmasını istiyorum.

Aşağıdaki kodu eklediğim zaman her ne olursa olsun soruyor. Kodu düzenleyebilir misiniz?

MsgBox "DEĞİŞİKLİK VAR UNUTMA.", vbOKOnly + vbInformation, "UYARI"
Application.Quit

Her kapandığında kaydet olayı kullanıyordum aşağıdaki gibi bu seferde çıkışta kasmaya başladı zaman zaman yanıt alınamıyor diye kapatıyor kendini onun için kullanmak istemiyorum.

ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ActiveWorkbook.Save
  ActiveWorkbook.Close False
End Sub

 

[kemal turan]

Ek dosyayı inceleyin.
çalışma kitabını kod bölümüne yapıştırın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
MsgBox "DEĞİŞİKLİK VAR UNUTMA.", vbOKOnly + vbInformation, "UYARI"
Application.Quit
 
End Sub

 

[massgrave]

kod:
SAYFAYI KAYDEDİYOR
Değişiklik olsa veya olmasa dahi MESAJI VERİYOR.