Does anyone know how to do this programmatically. I have to write a procedure to prepare a very complex spreadsheet for release and I would like incorporate this into it.

When you get the answer, let me know. I know the Application Object has a MacroOptions property that deals with shortcuts. I know the Names Collection (or Name Object) refers to shortcuts dealing with Excel 4.0 macros (look up Names in the Object Browser). I suspect this is the way to set/remove an assignment, ie. setting a name's shortcut = "".

My problem is I need to find a way to enumerate all assignments so that I can figure WHICH ones to remove.

After spending an hour looking for this today, I am stumped.




--- Tom

Hi There
This was the way I did the trick.

Example:
Remove Ctrl c
In the workbook_open event I have the following.
Sub AssignKey()
    Application.OnKey "^c", "Dummy"
End Sub
So now Ctrl c will call the sub Dummy, which have to be placed in a normal module.

Sub Dummy()
'Do nothing "now Ctrl c is disabled"
End Sub

Then the following code should be placed in the Workbook_BeforeClose event.
Sub ResetShortcut()
    Application.OnKey "^c", ""
End Sub

Hope it helps.
Cheers
Karsten

Hi Again
A smal typo. Here we go.

Then the following code should be placed in the Workbook_BeforeClose event.
Sub ResetShortcut()
    Application.OnKey "^c"
End Sub

NOT
Sub ResetShortcut()
    Application.OnKey "^c",""
End Sub