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
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_BeforePrint
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_BeforeSave
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;
Dosyanıza yeni bir sheet sayfa eklediğinz zaman otomatik olarak işleyen bir yardımdı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_SheetActivate;
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
Workbook_SheetBeforeDoubleClick;
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;
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;
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
