Açık Olan Tüm Kitapları Kapatma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Kodu ThisWorkbook hariç tutmak isterseniz:
Hazır Kodlar
VBA:
Sub CloseAllWorkbooks()
Dim wb As Workbook
' Tüm çalışma kitaplarını dolaş
For Each wb In Workbooks
' Geçerli kitabı kapat
wb.Close SaveChanges:=False
Next wb
End SubAçıklama
Excel'de açık olan tüm çalışma kitaplarını kapatmanızı sağlayacak bir VBA kodu bulunmaktadır. Bu kod, açık olan her bir kitabı kaydetmek isteyip istemediğinizi sormadan kapatacaktır. Eğer değişiklikler kaydedilmeden kapatılmasını istiyorsanız, SaveChanges:=False kısmını SaveChanges:=True olarak değiştirebilirsiniz. Bu şekilde, kitaplar kaydedilerek kapatılır.Kodu ThisWorkbook hariç tutmak isterseniz:
VBA:
Sub CloseAllWorkbooksExceptThis()
Dim wb As Workbook
' Tüm çalışma kitaplarını dolaş
For Each wb In Workbooks
' Eğer geçerli kitap bu dosya değilse kapat
If wb.Name <> ThisWorkbook.Name Then
wb.Close SaveChanges:=False
End If
Next wb
End Sub