Bir çalışma kitabını değişiklik kayıt penceresini göstermeden kaydeder ve kapatır.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CalismaKitabiniUyariVermedenKaydetVeKapat
End Sub
Sub CalismaKitabiniUyariVermedenKaydetVeKapat()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub