Userform' kapatılırken Excel de komple kapansın

[pNouma]

Değerli Hocalarım merhaba,
Formu araştırdım, Userform kapatılırken excel de kapansın istiyorum,
bu konuda formu araştırdım, aşağıdaki kodları buldum, bu durumda userform kapanırken mevcut çalışma dosyası kapanıyor, yalnız Excel ekranda boş olarak duruyor.
Application.Quit olayı tam çalışmıyor sanırsam
bu konuda nasıl bir çözüm yolu önerirsiniz?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
ThisWorkbook.Close
Application.Quit
End Sub

teşekkürler, iyi pazarlar.

 

[Biolightant]

Application.Quit olayı tam çalışmıyor sanırsam

çalışmasına fırsat tanımadan
içinde bulunduğu kitabı kapatıyorsun.
ThisWorkbook.Close dan sonra istersen msgbox "Bye Bye! " yaz o da çalışmıyacaktır.
Benim önerim

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
    ThisWorkbook.Save
   
    If Workbooks.Count = 1 Then
        ' Excel de Sadece UserForm un bulunduğu Kitap varsa
        ' Exceli Kapat
        Application.Quit
    Else
        ' Excel de Başka açık Kitaplar varsa
        ' Sadece UserForm un bulunduğu Kitabı kapat
        ThisWorkbook.Close
    End If

End Sub

 

[pNouma]

çalışmasına fırsat tanımadan
içinde bulunduğu kitabı kapatıyorsun.
ThisWorkbook.Close dan sonra istersen msgbox "Bye Bye! " yaz o da çalışmıyacaktır.
Benim önerim

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  
    ThisWorkbook.Save
  
    If Workbooks.Count = 1 Then
        ' Excel de Sadece UserForm un bulunduğu Kitap varsa
        ' Exceli Kapat
        Application.Quit
    Else
        ' Excel de Başka açık Kitaplar varsa
        ' Sadece UserForm un bulunduğu Kitabı kapat
        ThisWorkbook.Close
    End If

End Sub

teşekkürler Hocam
iyi akşamlar.

 

[muratgunay48]

Alternatif olsun. Birden fazla Excel dosyası açıksa. Sadece aktif dosyayı kaydederek kapatmak için.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Excel.Application.Windows.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If
End Sub