کد قفل کردن کلیدهای کیبرد با ماکرو

[shamsololama]

با درود فراوان
با این دستور می توانید هرکدام از کلیدهای صفحه کلید را قفل کنید
در صورت لزوم می توانید با اضافه کردن یک شرط قفل شدن کلیدها را مشروط کنید.



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:

[فريبا]

سلام
دستور را در چه قسمتي بايد نوشت

ممنون

[shamsololama]

با درود فراوان
مهردادجان برای اجرای همانطور که بالا هم نوشته شده آن را می توان در یک ماکرو قرار داد ولی راه های بسیاری دیگر نیز وجود دارد که این قفل شدن بصورت خودکار و به شرطی که برایش قرار می دهیم انجام شود مثلا شرط بگذاریم که اگر سل A5 را انتخاب کردیم کلید مورد نظر ما قفل شود
و یا اینکه هنگام باز شدن صفحه کلید ها قفل شود که این کار برای امنیت صفحه مورد استفاده قرار می گیرد مثلا اگر کلمه عبور را درست وارد نکرده و یا بدون وارد کردن کلمه عبور وارد صفحه شده باشد کلید ها قفل شود