Disabling the DELETE key

Team,

I am creating a very large workbook within which I have created some validations and sheet / cell protection. I have some Yes / No drop downs that I want users to be able to change, so I cannot lock those cells. Validation provides protection only against changing, or removing information, but not the DELETE key.

Is there a way to disable the DELETE key throughout the entire Workbook? I have attempted some VB scripting, but I am a complete novice at VB. I would appreciate some help with EXACTLY what I need to put, and where.

I would want to disable the DELETE key for the entire workbook.

Thank you all for your time.

I appreciate the input, however that doesn't seem to solve the problem. All that seems to do is extend the drop-down cell. Even with protecting it, the DELETE key still removes all options. Shucks.

This should do the trick.

Sub DisableKey()
    Application.OnKey "{DELETE}", ""
End Sub

Sub EnableKey()
    Application.OnKey "{DELETE}"
End Sub

Reference: http://support.microsoft.com/kb/101567

RC

I have tried various VB scripts but they don't seem to take effect. Where exactly should I be putting the scripts listed above?

Forgive me for being a novice, but I am trying to accomplish this for the entire worksheet. The code I have entered in the "thisworkbook" module is:

Private Sub Workbook_Open()
Sub DisableKey()
Application.OnKey "{DELETE}", ""
End Sub

I get errors every time I try to open the workbook. I'd appreciate some clarification as to what I'm doing wrong.

HOORAY! You fine folks have helped solve a problem in 20 minutes that I had been beating myself up over for the past two days. Thank you very much.

Do not forget to reset the delete key. You will have unhappy users if you don't.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DELETE}"
End Sub

RC