VbYesNoCancel Hakkında

[leonadies]

Arkdaşlar Merhaba;

Excel dosyamı sağ üst köşeden kapatırken bu makro devreye girerek yedek atıyor. Kodlarımda herhangi bir sıkıntı yok.Aşağıdaki Kodlarda VBYES sorunsuz çalışıyor, VBNO sorunsuz çalışıyor
Ancak VBCANCEL yaptığımda hiçbirşey olmadan dosyama geri dönmem gerekirken kaydetmeden kapatıyor. Sorunu anlayamıyorum

Sub Auto_Close()

msg = MsgBox("Dosya Kaydedilecek. Onaylıyor musunuz?", vbYesNoCancel + vbInformation, " !!! D İ K K A T !!!")

If msg = vbYes Then
ActiveWorkbook.Save
Dosya_Adı = ThisWorkbook.Name & " " & Format(Now(), "dd.mm.yyyy - hh.mm") & ".xlsm"
ActiveWorkbook.SaveAs Filename:="\\Server\Yedekler\" & Application.PathSeparator & Dosya_Adı
Application.Quit
End If

If msg = vbNo Then
Application.Quit
End If


If msg = vbCancel Then
MsgBox "İptal Edildi"
Exit Sub
End If

End Sub

 

[Muzaffer Ali]

Merhaba.
Auto_Close kodlarının tamamını silin aşağıdaki kodlar "BuÇalışmaKitabı(ThisWorkbook)" adlı kod sayfasına yapıştırın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim msg As VbMsgBoxResult
    Dim Dosya_Adı As String
    msg = MsgBox("Dosya Kaydedilecek. Onaylıyor musunuz?", vbYesNoCancel + vbInformation, " !!! D İ K K A T !!!")
    If msg = vbYes Then
        ActiveWorkbook.Save
        Dosya_Adı = ThisWorkbook.Name & " " & Format(Now(), "dd.mm.yyyy - hh.mm") & ".xlsm"
        ActiveWorkbook.SaveAs Filename:="\\Server\Yedekler\" & Application.PathSeparator & Dosya_Adı
        Application.Quit
    End If
    If msg = vbNo Then
        Application.Quit
    End If
    If msg = vbCancel Then
        MsgBox "İptal Edildi"
        Cancel = True
    End If
End Sub

 

[leonadies]

Teşekkürler @dalgalikur yine yetiştiniz imdadıma

 

[Muzaffer Ali]

Rica Ederim. İyi çalışmalar.