Workbook_BeforeClose

Olay yordamı nereye yazılır​

• Alt+F11 tuşlarıyla Visual Basic Düzenleyicisi'ni (VBA Editor) açın.
• Proje Gezgini'nde (Project Explorer) ilgili kitabın altındaki ThisWorkbook öğesine çift tıklayın.
• Kod penceresinin sol üstündeki listeden Workbook, sağ üstündeki listeden BeforeClose seçin; Excel yordamın iskeletini kendisi yazar.
• Dosyayı makro içerebilen biçimde, yani .xlsm olarak kaydedin.

Söz dizimi​

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Kapanıştan önce yapılacak işlemler
End Sub

• Cancel: Boolean türünde, referansla geçen bir parametredir. Olay başladığında False değerindedir. Yordam içinde True yaparsanız kitap kapanmaz ve kullanıcı çalışmaya devam eder. Değeri değiştirmezseniz kapatma sürer.

Ne zaman ve hangi sırayla çalışır​

• Kullanıcı soruda İptal derse: Kapatma durur, ama olay yordamı o ana kadar zaten çalışmış olur. Yordamdaki işlemler bu yüzden tekrarlanabilir olmalıdır.
• EnableEvents False ise: Application.EnableEvents özelliği False iken olay tetiklenmez.
• Makrolar kapalıysa: Kullanıcı makroları etkinleştirmediyse yordam hiç çalışmaz; kapanış kontrolüne tek başına güvenmeyin.

1. Kapanışta özet bilgiyi sayfaya yazma​

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Kapanıştan önce toplam tutarı not hücresine yazar
    With Me.Worksheets("Kapanış Kaydı")
        .Range("E2").Value = "Toplam tutar: " & _
            Format(Application.WorksheetFunction.Sum(.Range("D2:D5")), "#,##0.00")
    End With
End Sub

' Kitabı kapatmadan olayı denemek için yardımcı yordam
Public Sub KapanisDene()
    Dim iptal As Boolean
    Workbook_BeforeClose iptal
End Sub

2. Eksik girişte kapatmayı iptal etme​

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Dim bos As Long

    Set ws = Me.Worksheets("Onay Kontrolü")
    ' Durum sütunundaki boş hücreleri say
    bos = Application.WorksheetFunction.CountBlank(ws.Range("C2:C7"))

    If bos > 0 Then
        Cancel = True   ' Kapatma iptal edilir
        ws.Range("D2").Value = bos & " görevin durumu boş; kapatma iptal edildi."
    Else
        ws.Range("D2").Value = "Tüm durumlar dolu; kapatmaya izin verildi."
    End If
End Sub

' Kitabı kapatmadan olayı denemek için yardımcı yordam
Public Sub KapanisDene()
    Dim iptal As Boolean
    Workbook_BeforeClose iptal
End Sub

3. Kapanışta verileri sıralı bırakma​

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Set ws = Me.Worksheets("Şehir Satışları")

    ' Satış sütununa göre büyükten küçüğe sırala
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("B2:B8"), Order:=xlDescending
        .SetRange ws.Range("A1:B8")
        .Header = xlYes
        .Apply
    End With

    ws.Range("C2").Value = "Veriler satışa göre sıralandı"
End Sub

' Kitabı kapatmadan olayı denemek için yardımcı yordam
Public Sub KapanisDene()
    Dim iptal As Boolean
    Workbook_BeforeClose iptal
End Sub

Kullanırken dikkat edin​

• Yalnızca ThisWorkbook modülünde çalışır: Olay yordamını standart modüle ya da sayfa modülüne yazarsanız hata vermez ama hiç tetiklenmez. Yordamın ThisWorkbook modülünde ve tam adıyla Workbook_BeforeClose olarak durduğunu kontrol edin.
• Cancel yalnızca bu kapatma girişimini durdurur: Cancel = True kullanıcıyı kitapta tutar; ancak kullanıcı sorunu çözmeden yeniden kapatmayı denerse olay tekrar çalışır. Kapatmayı iptal ederken kullanıcıya nedenini mutlaka bildirin (MsgBox ya da hücre notu); aksi halde kitabın neden kapanmadığını anlayamaz.
• Kaydetme sorusu olaydan sonra gelir: Excel'in kaydetme sorusu olay bittikten sonra sorulur. Olay içinde Me.Saved = True yazarsanız soru hiç sorulmaz ve kaydedilmemiş değişiklikler sessizce kaybolur. Bunu yalnızca geçici ya da şablon niteliğindeki dosyalarda kullanın.
• Olay içindeki değişiklikler kitabı değiştirilmiş yapar: Olay yordamı bir hücreye yazarsa kitap yeniden "değiştirilmiş" sayılır ve kaydetme sorusu çıkabilir. Kapanışta not yazmak, sıralamak gibi işlemlerden sonra kaydetmek ya da Saved değerini bilinçli olarak yönetmek gerekir.
• Hata yönetimi ekleyin: Olay içinde oluşan işlenmemiş bir hata kapanış sırasında kullanıcıya hata penceresi gösterir ve kapatmayı karmaşıklaştırır. Hata olasılığı olan işlemlerde On Error GoTo ile hata yakalayıp kapanışın sürmesini sağlayın.
• Birden çok kitap ve Application.Quit: Excel kapatılırken açık her kitap için olay ayrı ayrı tetiklenir. Bir kitap Cancel = True yaparsa Excel'in kapanması da durur. Kod ile Application.Quit çağırdığınızda da aynı olay işler.
• İlgili konular:
  • Workbook_Open: Kitap açıldığında çalışan olay; kapanış olayının tamamlayıcısıdır.
  • Workbook_BeforeSave: Kitap kaydedilmeden önce tetiklenen olay.
  • Workbook_SheetChange: Herhangi bir sayfada hücre değiştiğinde çalışan olay.
  • Workbook.Close yöntemi: Kitabı kodla kapatır ve bu olayı tetikler.
  • Workbook.Saved özelliği: Kitabın değişiklik durumunu tutar.
  • Application.EnableEvents: Olayların çalışmasını açıp kapatan özellik.
  • Application.DisplayAlerts: Excel uyarı pencerelerini bastırır.
  • TOPLA: Örneklerdeki toplama işleminin sayfa işlevi karşılığı.