Excelde çalışma kitabına (workbook) ait tetikleyiciler

Workbook_Activate;

Excel Dosyanızın aktufleştiği zaman otomatik olarak işleyen bir eventtır.

Workbook_SheetChange

Dosyanızda bulunan sayfalardan herhangi birisinde değişiklik olduğu anda otomatik olarak işleyen yordamdır.

Workbook_BeforeClose

Örenkli
Dosyanızın kapanmadan hemen önce işleyen bir olaydır. İptal veya değişiklir işlemlerini buraya yazacağınız kodla uygulayabilirsiniz. Bu yordamda tanımlanan "cancel"" parametresine "true" değereni aktararak kapatma işlemini iptal edebilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Kapat As String
Kapat = MsgBox("Kapatmak istediğinizden Eminmisiniz", _
vbYesNo, "KAPAT")
If Kapat = vbNo Then
Cancel = True 'kayıt işlemini iptal et
MsgBox ("Kapatma işlemi iptal edildi")
Else
MsgBox ("dosyanız kapanıyor")
End If
End Sub

Workbook_BeforeSave

örnekli Dosyanızı kaydetmeden hemen önce işleyen bir yordamdır. Burada Cancel parametresine "True" değerini aktarırsanız kaydetme işlemi iptal edilecektir.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Kaydet As String
Kaydet = MsgBox("Kaydetmek istediğinizden Eminmisiniz", _
vbYesNo, "KAYDET")
If Kaydet = vbNo Then
Cancel = True 'kayıt işlemini iptal et
MsgBox ("Kayıt işlemi iptal edildi")
Else
MsgBox ("kaydetme İşlemi başarıyla tamamlandı")
End If
End Sub

Workbook_NewSheet;

örnekli
Dosyanıza yeni bir sheet sayfa eklediğinz zaman otomatik olarak işleyen bir yordamdır.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox ("Dosyanıza yeni bir sayfa eklediniz ")
MsgBox ("Toplam Sayfa Sayınız " _
& Workbooks.Application.Sheets.Count & " Adettir,")
End Sub

Workbook_BeforePrint

örnekli
Sayfalarınızı yazıcıya göndermeden hemen önce otomatik olarak işleyen yordamdır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim yazdir As String
yazdir = MsgBox("Yazdırmak İstediğinizden Eminmisiniz", _
vbYesNo, "Yazdır")
If yazdir = vbNo Then
Cancel = True
MsgBox ("Yazdırma İşlemi İptal Edildi")
Else
MsgBox ("Yazdırma İşlemi Başarı ile Tamamlanmıştır")
End If
End Sub

Workbook_SheetBeforeDoubleClick;

Örnekli
Hücre içerisine fare ile çift tıklanıldığı zaman meydana gelen olaydır. Örnekte ; Eğer Sayfada 4. sütunsa çift tıklanıldığında imleç hücre içerisine yerleşmez

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then 'ikinci sutunsa
Cancel = True
End If
End Sub

Workbook_SheetBeforeRightClick;

Örnekli
Sayfa Üzerine Mausun sağ tuşuna tıklanılması durumunda otomatik meydana gelen bir olaydır. Örnekte; Sayfa üzerinde 4. sütunda iken sağ tuşa tıklarsanız Windowsun menüsü açılmayacaktır

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then '4. sütunsa
Cancel = True 'menünün açılmasını engelle
End If
End Sub

Workbook_windowResize

Örnekli
Sayfanazın boyutlarının değişmesi sonucunda otamatik işleyen yordamdır.

Private Sub Workbook_WindowResize(ByVal Wn As Window)
MsgBox ("Sayfanızın boyutu değişti")
End Sub

Workbook_SheetActivate

Örnekli
Dosya içerisinde sayfa değiştirdiğinzde meydana gelen olaydır. Örneği sınamak için sayfa2 ye geçiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox ("Sayfa Değiştirdiniz")
End Sub

Ahmet Aşkın KÜÇÜKKAYA

kaynak: vba örnek dosyalar cdsi

Örnek dosyayı indirmek için tıklayınız.