Sağa ve Sola yön tuşlarını pasif hale getirmek

[dragon44760]

Dosyanın sadece bir sayfasında sağa ve sola yön tuşlarını nasıl pasif hale getirebilirim.

 

[parametre]

ornek dosyanızı goremiyoruz

 

[dragon44760]

İlk mesajda örnek dosyaya bakarsanız sevinirim. Kolay gelsin...

 

[Levent Menteşoğlu]

Thisworkbook modülüne aşağıdaki prosedürleri kopyalayın. Bu prosedürler, dosyayı açarken ve kapatırken yön tuşlarını aktif veya pasif hale getirir.

Private Sub Workbook_Open()
If ActiveSheet.Name <> "Sağ-Sol Yön Tuşları Pasif Sayfa" Then Exit Sub
Application.OnKey "{RIGHT}", ""
Application.OnKey "{LEFT}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{RIGHT}"
Application.OnKey "{LEFT}"
End Sub

Aşağıdaki prosedürleride tuşların çalışmasını istemediğiniz sayfanın kod modülüne kopyalayın. Bu prosedürlerde tuşların sadece ilgili sayfada pasif olmasını saylayacaktır.

Private Sub Worksheet_Activate()
Application.OnKey "{RIGHT}", ""
Application.OnKey "{LEFT}", ""
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{RIGHT}"
Application.OnKey "{LEFT}"
End Sub

 

[dragon44760]

Çok teşekkürler sayın Levent Menteşoğlu...