Fonksiyon Tuşlarını Devre Dışı Bırakma

14/09/2021, 10:29

lemoncher2

Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır



Formunuzun Vba kısmına bu kodu yapıştırınız.

Kod:
Public Sub sb_disablekeys(keycode As Integer, shift As Integer)
    Select Case shift
        Case acCtrlMask
            Select Case keycode
                Case 0 To 16, 18 To 66, 68 To 85, 87 To 255
                
                    keycode = 0
            End Select
        Case acAltMask
                    keycode = 0
    End Select

    Select Case keycode
        Case vbKeyF1 To vbKeyF16
            keycode = 0
    End Select
End Sub


Formunuzun Tuşa Basılırken Olayına bu kodu yapıştırınız.
Kod:
sb_disablekeys keycode, shift


Formunuzun açıldığında olayına
Kod:
Me.KeyPreview = True

İyi günler.
14/09/2021, 21:41

feraz

(14/09/2021, 10:29)lemoncher2 yazdı: Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır



Formunuzun Vba kısmına bu kodu yapıştırınız.

Kod:
Public Sub sb_disablekeys(keycode As Integer, shift As Integer)
    Select Case shift
        Case acCtrlMask
            Select Case keycode
                Case 0 To 16, 18 To 66, 68 To 85, 87 To 255
               
                    keycode = 0
            End Select
        Case acAltMask
                    keycode = 0
    End Select

    Select Case keycode
        Case vbKeyF1 To vbKeyF16
            keycode = 0
    End Select
End Sub


Formunuzun Tuşa Basılırken Olayına bu kodu yapıştırınız.
Kod:
sb_disablekeys keycode, shift


Formunuzun açıldığında olayına
Kod:
Me.KeyPreview = True

İyi günler.
?