olaylar

Hücre olayları. Excelde Şifreleme

SelectionChange; hücrede işlem yapılsın veya yapılması başka bir hücreye geçildiğinde meydana gelen olaydır. Kodlar Thisworkbook event'ine yazılacaktır
DEVAMINI OKU

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














DEVAMINI OKU






    




















            

          

          

        

          

        






Event (Olaylar)


Çalışma sayfası ve çalışma kitabı ile ilgili olaylar pdf dosyası.


Pdf formatındaki dosyayı indirmek için tıklayınız...


















DEVAMINI OKU






    




















        

      













Kaydol:
Kayıtlar (Atom)