Kaydederek çıkma

[stres]

aşağıdaki kodlara programdan çıkarken evet dersem kaydederek hayır dersem kaydetmeden çıkması için nereye ne ekleyeceğimi pek kesitremedim

Private Sub CommandButton2_Click()
cevap = MsgBox(" DEĞİŞİKLİKLER KAYDEDİLSİNMİ ? ", vbYesNoCancel, "")
If cevap = vbNo Then Exit Sub
If cevap = vbCancel Then Exit Sub
Application.Quit
If cevap = vbYes Then
End If
End Sub

 

[AS3434]

Sayın stres

Şöyle deneyebilirsiniz.

Sub kapat()
' Excel.web.tr
cevap = MsgBox(" DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "")
If cevap = vbCancel Then Exit Sub
If cevap = vbNo Then Application.Quit
If cevap = vbYes Then
ActiveWorkbook.Save
Application.Quit
End If
End Sub

 

[dEdE]

Merhaba,
Yanıt verilmiş ama, bir alternatif de benden olsun.

Private Sub CommandButton2_Click()
If MsgBox(" DEĞİŞİKLİKLER KAYDEDİLSİNMİ ? ", vbYesNo) = vbYes Then ActiveWorkbook.Save
Application.Quit
End Sub

 

[stres]

as3434 ve dede teşekkür ederim akşam erken kapatınca bakamamıştım