Başka bir excel açıkken application.quit komutu

[bugrakaratas]

Üstadlar merhaba;
Yaptığım bir programda

Application.Quit

kodunu kullanarak en son programı kapatıyorum ancak program açık başka bir excel dosyası da var ise onuda kapatıyor. Eğer açık olan başka bir excel var ise workbook'u kapat yok ise application'u kapat gibi bir döngü yapılabilir mi?

Değerli yardımlarınız için şimdiden teşekkür ederim.

 

[Murat OSMA]

Quit yerine thisworkbook.close true satırını deneyin.​

 

[bugrakaratas]

Sn. Murat OSMA sorunum çözüldü.
Çok teşekkür ederim.

 

[bugrakaratas]

Üstad başka bir excel dosyası açık değilse programı kapamıyor bu sefer.
Nasıl çözebilirim.

Saygılar.

 

[bugrakaratas]

Arkadaşlar problemi aşağıdaki döngü ile çözmüş bulunmaktayım.

If Application.Workbooks.Count > 1 Then
        
On Error GoTo hagayret
        Workbooks("&isim&").Activate

 ActiveWorkbook.Close True
hagayret:

 ActiveWorkbook.Close True
        
        
        Else
        ActiveWorkbook.Save
        Application.Quit
       End If

 

[Saban Sertkaya]

Alternatif olsun. Deneyiniz...

Private Sub CommandButton1_Click() 'ÇIKIŞ BUTONU
a = MsgBox("Çıkmak İstediğinizden Emin Misiniz ?", vbYesNo, "   Şaban")
If a = vbYes Then
b = MsgBox("Kayıt Yapılsın mı ?", vbYesNo, "    Şaban")
    If b = vbYes Then
    ThisWorkbook.Save
        If Windows.Count > 1 Then
        ActiveWindow.Close
        Else
        Application.Quit
        End If
    Else
        If Windows.Count > 1 Then
        Application.DisplayAlerts = False
        ActiveWindow.Close
        Else
        Application.DisplayAlerts = False
        Application.Quit
        End If
    End If
Else
Exit Sub
End If
End Sub