userform kapatma sorunu

[erkurt19]

Değerli arkadaşlar,
Ekte göndermiş olduğum dosyada userform kapatma ile ilgili bir sorun var. Gerekli açıklama kitabın içerisinde yardımcı olabilirseniz sevinirim.
iyi çalışmalar...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Dim Cevap
    Cevap = (MsgBox("Yaptığınız değişiklikleri kaydetmek istiyor musunuz?", vbYesNoCancel + vbExclamation, "ÇIKIŞ"))
    If Cevap = vbYes Then
    ThisWorkbook.Close Savechanges:=True
    ElseIf Cevap = vbNo Then
    ThisWorkbook.Close Savechanges:=False
    Else
    [B][COLOR=red]Cancel = True[/COLOR][/B]
    Exit Sub
    End If
    Application.Visible = True
    Application.Quit
    ActiveWorkbook.Close True
End Sub

 

[erkurt19]

Sn.Korhan Ayhan
Yardımlarınız için teşekkürler...