Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Christina,
I dont use 2007 so cannot answer all your questions. However, following procedure should disable most of the keys on keyboard you need to isolate but adjust code to suit your need. The second procedure should restore the keyboard to normal use but be aware; any assigned keys used as personal shortcuts may be lost. As always, these things only work with macros enabled. Use with care but hope helpful. ' '*** Disable Function Keys, '*** CTRL + most other Keys ... '*** NB use with care! Sub DisableKeys() With Application 'Function Keys ' By themselves ... For i% = 1 To 12 .OnKey "{f" & i% & "}", "do_nothing" Next i% ' with Ctrl ... For i% = 1 To 12 .OnKey "^{f" & i% & "}", "do_nothing" Next i% ' with Alt ... For i% = 1 To 12 .OnKey "%{f" & i% & "}", "do_nothing" Next i% ' and with Shift. For i% = 1 To 12 .OnKey "+{f" & i% & "}", "do_nothing" Next i% ' Disable CTRL + most other keys ' NB Caps Lock does not have any ' effect on the action of the keys. On Error Resume Next ' Some characters seem to cause ' an error when used with OnKey. For i% = 32 To 122 .OnKey "^" & Chr(i%), "do_nothing" Next i% On Error GoTo 0 .OnKey "{ESC}", "do_nothing" .OnKey "{HELP}", "do_nothing" ' .OnKey "%{TAB}", "do_nothing" 'ALT + TAB End With End Sub Sub do_nothing() Beep MsgBox "Function Disabled!" End Sub ' '*** Restore normal '*** keyboard operation. Sub RestoreKeys() With Application 'Function Keys ' By themselves ... For i% = 1 To 12 .OnKey "{f" & i% & "}" Next i% ' with Ctrl ... For i% = 1 To 12 .OnKey "^{f" & i% & "}" Next i% ' with Alt ... For i% = 1 To 12 .OnKey "%{f" & i% & "}" Next i% ' and with Shift. For i% = 1 To 12 .OnKey "+{f" & i% & "}" Next i% ' Re-enable CTRL + most other keys On Error Resume Next For i% = 32 To 122 .OnKey "^" & Chr(i%) Next i% On Error GoTo 0 .OnKey "{ESC}" .OnKey "{HELP}" ' .OnKey "%{TAB}" End With End Sub -- jb "Christina" wrote: Hi, Doing some research. Want students to run through a "tutorial" and then practice the Excel 2007 skills they learn in this tutorial. When using Excel, DO NOT want them able to access Help via F1, the help button or the help that comes up when you screw up a formula/function. Have a macro for disabling F1....how to do the others?? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Disabling Macro Warning | Excel Discussion (Misc queries) | |||
Macro for disabling F1 key | Excel Programming | |||
Macro disabling ?? | Excel Programming | |||
Disabling an 'on load' macro | Excel Worksheet Functions | |||
Disabling a specific macro | Excel Programming |