shamsololama
2010/03/09, 07:43
با درود فراوان
با این دستور می توانید هرکدام از کلیدهای صفحه کلید را قفل کنید
در صورت لزوم می توانید با اضافه کردن یک شرط قفل شدن کلیدها را مشروط کنید.
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
بدرود:blush:
با این دستور می توانید هرکدام از کلیدهای صفحه کلید را قفل کنید
در صورت لزوم می توانید با اضافه کردن یک شرط قفل شدن کلیدها را مشروط کنید.
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
بدرود:blush: