Bu komutlarda hata nerede?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub CommandButton1_Click()
    ActiveWorkbook.Close
    Application.Quit
End Sub

2013 Excel kullanıyorum. Bu komut kapatıp Excel'den çıkmasına yetmiyor. Sadece kapatıyor. Neden olabilir acaba?
Saygılarımla

 

[Ömer BARAN]

Merhaba. Aşağıdaki şekilde dener misiniz?

Private Sub CommandButton1_Click()
    ActiveWorkbook.Save [COLOR="Red"][B]VEYA[/B][/COLOR] Application.DisplayAlerts = False
    Application.Quit
End Sub

 

[Tevfik_Kursun]

Çok teşekkür ederim Ömer Baran Hocam,
Bu sefer oldu.
Saygılarımla

 

[Orion1]

Buyurun.

Sub kapat()
ThisWorkbook.Save
Application.Quit
End Sub

 

[halilyor]

Sub kapat()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

 

[Tevfik_Kursun]

Teşekkürler Arkadaşlar