AccessProgram
Registered User.
- Local time
- Today, 08:46
- Joined
- Dec 7, 2009
- Messages
- 68
I have found the code below to disable some keys.
Is there a combination of keycode that will disable ctrl+alt+delete and alt+tab?
Code:
Public Function DisableKeys(KeyCode As Integer)
Select Case KeyCode
Case vbKeyF1 'F1 Key
KeyCode = 0 'Makes it so that if user presses this key it will do nothing
Case vbKeyF2
KeyCode = 0
Case vbKeyF3
KeyCode = 0
Case vbKeyF4
KeyCode = 0
Case vbKeyF5
KeyCode = 0
Case vbKeyF6
KeyCode = 0
Case vbKeyF7
KeyCode = 0
Case vbKeyF8
KeyCode = 0
Case vbKeyF9
KeyCode = 0
Case vbKeyF10
KeyCode = 0
Case vbKeyF11
KeyCode = 0
Case vbKeyF12
KeyCode = 0
Case vbKeyHome 'Home Key
KeyCode = 0
Case vbKeyInsert 'Insert Key
KeyCode = 0
Case vbKeyPageDown 'Page Down
KeyCode = 0
Case vbKeyPageUp 'Page Up
KeyCode = 0
Case vbKeyDelete 'Delete
KeyCode = 0
Case vbKeyControl 'Ctrl
KeyCode = 0
Case vbKeyShift 'Shift
KeyCode = 0
Case vbKeyReturn 'Enter
KeyCode = 0
Case vbKeyLeft 'Left Arrow
KeyCode = 0
Case vbKeyRight 'Right Arrow
KeyCode = 0
Case vbKeyUp 'Up Arrow
KeyCode = 0
Case vbKeyDown 'Down Arrow
KeyCode = 0
Case vbKeyEscape 'Escape Key
KeyCode = 0
End Select
End Function
Is there a combination of keycode that will disable ctrl+alt+delete and alt+tab?
Code:
Public Function DisableKeys(KeyCode As Integer)
Select Case KeyCode
Case vbKeyF1 'F1 Key
KeyCode = 0 'Makes it so that if user presses this key it will do nothing
Case vbKeyF2
KeyCode = 0
Case vbKeyF3
KeyCode = 0
Case vbKeyF4
KeyCode = 0
Case vbKeyF5
KeyCode = 0
Case vbKeyF6
KeyCode = 0
Case vbKeyF7
KeyCode = 0
Case vbKeyF8
KeyCode = 0
Case vbKeyF9
KeyCode = 0
Case vbKeyF10
KeyCode = 0
Case vbKeyF11
KeyCode = 0
Case vbKeyF12
KeyCode = 0
Case vbKeyHome 'Home Key
KeyCode = 0
Case vbKeyInsert 'Insert Key
KeyCode = 0
Case vbKeyPageDown 'Page Down
KeyCode = 0
Case vbKeyPageUp 'Page Up
KeyCode = 0
Case vbKeyDelete 'Delete
KeyCode = 0
Case vbKeyControl 'Ctrl
KeyCode = 0
Case vbKeyShift 'Shift
KeyCode = 0
Case vbKeyReturn 'Enter
KeyCode = 0
Case vbKeyLeft 'Left Arrow
KeyCode = 0
Case vbKeyRight 'Right Arrow
KeyCode = 0
Case vbKeyUp 'Up Arrow
KeyCode = 0
Case vbKeyDown 'Down Arrow
KeyCode = 0
Case vbKeyEscape 'Escape Key
KeyCode = 0
End Select
End Function