יש לי אצלי את הקוד הבא:
Public Sub sb_disablekeys(keycode As Integer, shift As Integer)
'All keyboard events with CTRL don’t function anymore with the exception of CTRL+C and CTRL+V
'All keyboard events with ALT don’t function anymorge
'All function keys are disabled
Select Case shift
Case acCtrlMask 'CTRL pressed
Select Case keycode
Case 0 To 16, 18 To 66, 68 To 85, 87 To 255
'All keycodes with the exception of 17 (CTRL), 67 (CTRL+C) and 86 (CTRL+V) are set to 0.
keycode = 0
End Select
Case acAltMask 'Alt pressed
keycode = 0
End Select
Select Case keycode
Case vbKeyF1 To vbKeyF16 'Function key pressed
keycode = 0
End Select
End Sub
בכל טופס אני מוסיף:
Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True 'turn keypreview on in order to receive all keyboard events
End Sub
Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
sb_disablekeys keycode, shift
End Sub
(המקור הוא ברשת, אני לא זוכר מאיפה)
תבדוק אם זה עוזר לך, יכול להיות שיהיה אותו תוצאה.
אני בדר"כ סוגר לגמרי את סייר הקבצים, כך רוב הקיצורים לא עובדים.