Soru Klavye Kısayolunun Çalışmasını Engelleme

[ultraslan38080]

Bir excel dosyasında Ctrl+P ve Alt+F11 tuşlarının basıldığında çalışmamasını istiyorum. Bu nasıl mümkün olur?

 

[Korhan Ayhan]

SendKeys ifadesi ile arama yapınız.

 

[ultraslan38080]

SendKeys ifadesi ile arama yapınız.

Teşekkür ederim. Ancak Alt+F11 kapatma ile ilgili bir konu bulamadım.

 

[Korhan Ayhan]

İnceleyiniz.

SendKeys statement (VBA)

Office VBA reference topic

docs.microsoft.com

 

[Korhan Ayhan]

Çok pardon... (Yanlış yönlendirdim...)

Onkey ifadesi ile arama yapınız.

 

[ultraslan38080]

Araştırdım ancak Alt+F11 basıldığında geliştirici seçeneklerini açmayan bir kod hiçbiryerde bulamadım.

 

[Korhan Ayhan]

Deneyiniz.

BuÇalışmaKitabı ya da ThisWorkBook bölümüne uygulayınız.

Uyguladığınız dosya açıldığında ya da aktif olduğunda ilgili tuş kombinasyonları çalışmayacaktır. Başka dosyaya geçtiğinizde yada dosyayı kapattığınızda tuş kombinasyonları eski haline işlevlerini yapar hale gelecektir.

Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "%{F11}", ""
    Application.OnKey "^{p}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "%{F11}"
    Application.OnKey "^{p}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "%{F11}"
    Application.OnKey "^{p}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "%{F11}", ""
    Application.OnKey "^{p}", ""
End Sub

 

[ultraslan38080]

Çok teşekkür ederim. Çalıştı.