חסימת קיצורי מקשים באקסס

[ארי]

צהרים טובים.
האם יש דרך לחסום באקסס את השימוש בקיצור דרך של alt+shift כדי שלא יוכלו לעבור לחלונות אחרים?
ניסיתי להשתמש בקוד הבא, אבל זה לא עובד לי.

Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
    Select Case shift
        Case Is = 4, 2, 16, 91    'Alt key, Ctrl key, Shift key, Windows key
            keycode = 0
    End Select
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

למישהו יש פתרון לזה?
תודה רבה!

[איש ימיני]

יש לי אצלי את הקוד הבא:

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

(המקור הוא ברשת, אני לא זוכר מאיפה)
תבדוק אם זה עוזר לך, יכול להיות שיהיה אותו תוצאה.
אני בדר"כ סוגר לגמרי את סייר הקבצים, כך רוב הקיצורים לא עובדים.

[ארי]

@איש-ימיני יש לי הרגשה שזה עובד רק בתוך האקסס, לדוגמא הוא באמת מונע ללחוץ על alt+F4 כדי לסגור את אקסס, אבל לא מונע alt+tab כדי לעבור חלון.
יש למישהו רעיון אחר?
תודה.

[איש ימיני]

יש לך בעיה לסגור את סייר הקבצים לגמרי?
זה מבטל את רוב הקיצורים, כולל alt+tab

[ארי]

אבל לא את win+d לדוג' שממזער את כל החלונות הפתוחים.

[איש ימיני]

זה מבטל גם את win+d

[ארי]

@איש-ימיני אולי בתיאוריה אבל לא למעשה.

[איש ימיני]

אצלי לא עובד שם קיצור.
אני מגדיר ברג'יסטרי שהאקסס יעלה במקום הסייר קבצים.
בנוסף אני שם בכל טופס את הקוד שהבאתי בפוסט למעלה.
ושום קיצור לא עובד, (מנהל המשימות אני חוסם ב GPO)

[ארי]

אני לא ניסיתי את כל הפעולות האלו (עדיין).
רק שמתי בטופס אחד את הקוד שהבאת, אבל הוא לא מנע ממני למזער את אקסס עם מקש win+d.
איזה אופיס יש לך? ואיזה ווינדוס? אולי זה קשור...