Workbook_Activate

Olay yordamı nereye yazılır​

Söz dizimi​

Private Sub Workbook_Activate()
    ' Kitap etkin olduğunda yapılacak işlemler
End Sub

• Parametre: Bu olayın parametresi yoktur. Yordam parantezleri boş yazılır.
• Me: ThisWorkbook modülünün içinde Me ifadesi, olayın ait olduğu çalışma kitabını gösterir.
• Dönüş değeri: Olay yordamı değer döndürmez; bir Sub olarak çalışır.

Ne zaman tetiklenir​

• Tetiklenmez: Aynı kitabın farklı pencereleri arasında geçişte bu olay çalışmaz; bunun için Workbook_WindowActivate kullanılır.
• Tetiklenmez: Excel'den başka bir programa geçip geri döndüğünüzde kitap zaten etkin kitap olduğu için olay çalışmaz.
• Karşıt olay: Kitap etkinliğini kaybederken Workbook_Deactivate olayı çalışır.
• Olay kapalıysa: Application.EnableEvents özelliği False iken olay çalışmaz.

1. Kitap etkinleşince durum bilgisi yazmak​

Option Explicit

' ThisWorkbook modülüne yazılır
Private Sub Workbook_Activate()
    With Me.Worksheets("Durum")
        .Range("B2").Value = "Kitap etkin"
        .Range("B3").Value = "Olay çalıştı"
    End With
End Sub

2. Toplamı kitap etkinleşince yenilemek​

Option Explicit

' ThisWorkbook modülüne yazılır
Private Sub Workbook_Activate()
    Dim ws As Worksheet
    Set ws = Me.Worksheets("Satış Özeti")

    ' B2:B6 aralığındaki satışların toplamını C2 hücresine yaz
    ws.Range("C2").Value = Application.WorksheetFunction.Sum(ws.Range("B2:B6"))
End Sub

3. Stok durumunu kitap açılınca denetlemek​

Option Explicit

' ThisWorkbook modülüne yazılır
Private Sub Workbook_Activate()
    Dim ws As Worksheet
    Dim i As Long
    Dim kritik As Long

    Set ws = Me.Worksheets("Stok Kontrol")

    ' 2. satırdan 7. satıra kadar her ürünü denetle
    For i = 2 To 7
        If ws.Cells(i, 2).Value < ws.Cells(i, 3).Value Then
            ws.Cells(i, 4).Value = "Kritik"
            kritik = kritik + 1
        Else
            ws.Cells(i, 4).Value = "Yeterli"
        End If
    Next i

    ' Kritik ürün sayısını yaz
    ws.Range("E2").Value = kritik
End Sub

Kullanırken dikkat edin​

• Olayın yeri: Kod ThisWorkbook modülünde olmalıdır. Standart modüle ya da sayfa modülüne yazılan Workbook_Activate yordamı olay olarak çalışmaz; yalnızca sıradan bir yordam gibi kalır.
• Kitap açılırken tetiklenme: Kitap açılırken Open olayının ardından Activate olayının da çalışabileceğini göz önünde bulundurun. Bu nedenle aynı işlemi hem Workbook_Open hem Workbook_Activate içine yazarsanız işlem iki kez yapılabilir. Yalnızca bir kez çalışması gereken işlemleri Workbook_Open içine koyun.
• Pencere geçişleri: Aynı kitabın ikinci penceresine geçmek Workbook_Activate olayını tetiklemez. Pencere geçişlerine tepki vermek istiyorsanız Workbook_WindowActivate olayını kullanın.
• Uzun işlemlerden kaçının: Kitap her etkinleştiğinde çalıştığı için olay içine ağır hesaplamalar ya da çok sayıda hücreyi dolaşan döngüler koymayın. Kitaplar arasında geçiş yavaşlar ve kullanıcı gecikmeyi fark eder.
• Olayları kapatma: Application.EnableEvents özelliğini False yaptıysanız olay çalışmaz. Kodunuz hata verip yarıda kalırsa özellik False kalabilir; bu durumda olaylar çalışmaz. Anlık Pencere'ye Application.EnableEvents = True yazarak durumu düzeltebilirsiniz.
• Sonsuz döngü riski: Olay içinde kitabı yeniden etkinleştiren bir kod (örneğin başka bir kitaba geçip geri dönen komutlar) yazarsanız olay kendini tekrar tekrar çağırabilir. Böyle bir durumda olayı geçici olarak EnableEvents ile kapatın.
• Makro güvenliği: Kitap makro içerdiği için .xlsm biçiminde kaydedilmelidir. Makrolar devre dışıysa olay yordamı da çalışmaz.
• İlgili konular:
  • Workbook_Open: Kitap açıldığında çalışan olay.
  • Workbook_Deactivate: Kitap etkinliğini kaybettiğinde çalışan olay.
  • Workbook_WindowActivate: Kitabın bir penceresi etkinleştiğinde çalışan olay.
  • Workbook_SheetActivate: Kitaptaki bir sayfa etkinleştiğinde çalışan olay.
  • Worksheet_Activate: Belirli bir sayfa etkinleştiğinde çalışan olay.
  • Application.EnableEvents: Olayların çalışmasını açıp kapatan özellik.
  • Workbook.Activate: Bir kitabı kodla etkinleştiren yöntem.