Çalışma kitabı kapatıldığında, herhangi bir soru sormadan kitabını kaydeder ve kapatır.
Option Explicit Sub CalismaKitabiniSormadanKaydetVeKapat() ActiveWorkbook.Close SaveChanges:=True End Sub