Excel kapatma kodu

[hakki83]

Merhaba

Bu kodu exceli kapatmak için denedim fakat exceli kapatmıyor,
kodda bir hata var mıdır?

Sub test()
Application.DisplayAlerts = False
ThisWorkbook.Close SaveChanges:=False
Application.Quit
Application.DisplayAlerts = True
End Sub

 

[volki_112]

Bunu dener misiniz bir de

Sub Test()
    Dim wb As Workbook
    Application.DisplayAlerts = False

    ' Tüm açık çalışma kitaplarını kaydetmeden kapat
    For Each wb In Application.Workbooks
        wb.Close SaveChanges:=False
    Next wb

    ' Excel uygulamasını tamamen kapat
    Application.Quit
    
    Application.DisplayAlerts = True
End Sub

 

[hakki83]

Bunu dener misiniz bir de

Sub Test()
    Dim wb As Workbook
    Application.DisplayAlerts = False

    ' Tüm açık çalışma kitaplarını kaydetmeden kapat
    For Each wb In Application.Workbooks
        wb.Close SaveChanges:=False
    Next wb

    ' Excel uygulamasını tamamen kapat
    Application.Quit
   
    Application.DisplayAlerts = True
End Sub

Kapanmadı. Sizde bu iki kodu uyguladığınız zaman kapanıyor mu?

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Application.DisplayAlerts = False
    Application.Quit
End Sub

 

[hakki83]

Muzaffer Ali hocam oldu. Demek ki diğer fazlalık satırlar engel oluyormuş kapanmaya.

 

[Muzaffer Ali]

Kodların bulunduğu dosyayı kapatan satırı ThisWorkbook.Close SaveChanges:=False çalıştırdıktan sonra geri kalan kodlar çalışmaz.

sizin kodlardaki

Application.Quit
Application.DisplayAlerts = True

satırları çalışmadan önce dosya kapatıldığı için olmuyordu.