kaydet kapat makrosu hatası

[burhancavus61]

makroda hayır seçmeme rağmen kapanıyor.

Sub KaydetKapat()
sor = MsgBox("Puantajı kapatmak istiyormusunuz? Evet derseniz kaydedilip kapatılacak?", 20, "UYARI") & vbCritical
If sor = vbNo Then Exit Sub
    Bekleyiniz.Show False:    DoEvents      'Userformu gösterdikten sonra kodları işlemeye devam et         '||    Sheets("Puantaj").Select
    ThisWorkbook.Save
    AKTİF_DOSYAYI_YEDEKLE
  
    Application.DisplayFullScreen = False

    Dim CBar As CommandBar
    On Error Resume Next
    Application.ScreenUpdating = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    
    For Each CBar In Application.CommandBars
    CBar.Enabled = True
    Next
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Drawing").Visible = True
    Application.CommandBars("Control Toolbox").Visible = True
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .DisplayFormulaBar = True
        .ShowWindowsInTaskbar = True
    End With
    Application.ScreenUpdating = True
    Unload Bekleyiniz

    ThisWorkbook.Close False
End Sub

 

[Erdem Akdemir]

If sor = vbNo Then Exit Sub

Yukarıdaki satırda hayır'ı seçildiğinde prosedüründen hemen çık demişsiniz.

 

[burhancavus61]

İptal olarak düzenleyebilirmisiniz.

 

[burhancavus61]

Tamam anladım sonunda
vbCritical
bu kod devam ettiriyor. sağolun