Disable certain keys

[data808]

Everywhere I look online, it tells me how to disable all ctrl shortcut keys but the thing is I would like to keep some active. So I need some help for the vba to pick which ctrl shortcut keys I would like to disable. One of the few ctrl shortcuts I do want to disable is the Ctrl+P shortcut key to print. I would also like to disable all the F1-F12 keys if its possible to add it into the code.

Some of the keys I would like to keep are Ctrl+C and V to copy and paste.



I was thinking of just going down the list of shortcut keys and deciding if I want to disable them or not. So its important in the code that I get to pick and choose which ones I want to disable.

I know hardly anything of vba and would really appreciate the help.

Thanks.

[data808]

I got this code to work but it cancels ALL CTRL shortcut keys because it basically cancels out the CTRL button all together. I would still like to use the CTRL+C and CTRL+V and maybe even a couple more shortcuts. How do I get it to enable those?

If (Shift And acCtrlMask) > 0 Then
KeyCode = 0
Shift = 0
End If

[data808]

This also works really well but I can't figure out how to add more buttons to this code. 80 = the P key on the keyboard.

If (Shift And acCtrlMask) > 0 And KeyCode = 80 Then KeyCode = 0

I found a list that says the letter S key is = to 83. How would I add that to the code?

[June7]

The only macro I have ever used is an Autokeys macro. I couldn't find any other way to disable Ctrl+P for the entire db to prevent shortcut printing.

http://office.microsoft.com/en-us/ac...010239111.aspx

Maybe you want:

If (Shift And acCtrlMask) > 0 And (KeyCode = 80 Or KeyCode = 83) Then KeyCode = 0

Or use an If Then Else

[data808]

I haven't tried the parenthesis but have tried the If, Then, Else, Else If, Or, And, +, etc... Pretty much everything you can think of. Either it runs into an error or it disables the second key (S) totally and I can no longer type the letter S. I'll try the parenthesis and let you know.

[data808]

Thanks June7. The parenthesis worked great. Just gotta manually add all the buttons to it and it should be good to go. Thanks again.