Kaydet Kapat veya Kaydetme Kapat

[fatihbozkurt58]

Hazırladığım çalışmamda Userform üzerine oluşturduğum bir butonla aşağıda verdiğim kod ile programı sonlandırmak istiyorum. Programı kaydederek çıkış yaptığımda işlem tamamlanıyor. Ancak sayfada bazı değişiklikler yapmama rağmen yapılan değişiklikleri kaydetmeden programı ve tüm exceli kapatmayı seçtiğimde tekrar kaydetmek istiyormusunuz diye excelin olağan sorusunu soruyor bu soruyu sormaması için nasıl bir kod yazmalıyım.

Private Sub CommandButton3_Click()
fatih = MsgBox("YAPILAN TÜM DEĞİŞİKLİKLERİ KAYDETMEK İSTİYORMUSUNUZ?", vbYesNo, "Onay")
If fatih = vbYes Then
    Unload UserForm1
    Application.Visible = False
    ActiveWorkbook.Save
    Application.Visible = False
    ActiveWorkbook.Close
Else
    Unload UserForm1
    Application.Visible = False
    Application.Visible = False
    ActiveWorkbook.Close
End If
End Sub

 

[Orion1]

Kaydet ve kapat:

Activeworkbook.close true

kaydetmeden kapat:

Activeworkbook.close false

 

[fatihbozkurt58]

Çok teşekkür ediyorum.
İyi çalışmalar.