Application.Quit ile aktif çalışma kitabını nasıl kapatırız

[programer]

Arkadaşlar iyi akşamlar. Aşağıdaki kodu kullanarak aktif çalışma sayfasını kaydediyorum ama iş çalışma kitabını kapatmaya gelince diğer açık çalışma kitaplarıda kapanıyor. Diğer çalışma kitaplarının kapanmasını nasıl engelleriz.

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

 

[Mahmut Bayram]

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub

 

[programer]

Sayın mahmut_bayram yardımınız için teşekkür ederim.

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub