با این دستور می توانید هرکدام از کلیدهای صفحه کلید را قفل کنید
در صورت لزوم می توانید با اضافه کردن یک شرط قفل شدن کلیدها را مشروط کنید.
Sub lockkey()
'
Application.OnKey "{DEL}", "" '
Application.OnKey "{RIGHT}", "" '
Application.OnKey "{LEFT}", ""
Application.OnKey "{TAB}", ""
Application.OnKey "{~}", "" 'Enter key
Application.OnKey "{+}", "" 'Shift key
Application.OnKey "z", "" '
Application.OnKey "b", "" '
Application.OnKey "c", "" '
Application.OnKey "d", "" '
Application.OnKey "e", "" '
Application.OnKey "f", "" '
Application.OnKey "g", "" '
Application.OnKey "h", "" '
Application.OnKey "s", "" '
Application.OnKey "j", "" '
Application.OnKey "k", "" '
Application.OnKey "l", "" '
Application.OnKey "x", "" '
Application.OnKey "n", "" '
Application.OnKey "o", "" '
Application.OnKey "p", "" '
Application.OnKey "q", "" '
Application.OnKey "y", "" '
'
End Sub



کامنت