キーボードの数字キー及びテンキーを無効にするマクロ
お世話になります。上記質問タイトルに付きましてご質問させていただきます。
環境は、windowsXP、Excel2003です。
取扱い商品の物流を管理しているエクセルシートで、バーコードを読み込ませて商品コードを入力し、データ入力しています。
パートやアルバイトに入力操作をお願いしているのですが、キーボードの手入力のほうが入力しやすいらしく、手入力でデータ入力しているようです。ところが間違って入力していることがあり、キーボードの数字キーを無効にしたいと思いました。
少し調べたところ↓
--------------------------------------
Sub Keyboard09Off()
For i = 44 To 90
Application.OnKey Chr(i), ""
Next i
End Sub
--------------------------------------
このマクロで数字キーは無効になるのですが、まだテンキーは有効で
さらに調べたところ↓
--------------------------------------
Sub Keyboardtenkey09Off()
For i = 97 To 105
Application.OnKey Chr(i), ""
Next i
End Sub
--------------------------------------
自分では、これでテンキーが無効になると思ったのですが、うまくいかず。
どこが間違っているのでしょうか?
詳しい方いらっしゃいましたら、何卒ご教授お願いいたします。
お礼
ありがとうございます。 大変助かりました。 今後はこれでストレスフリーで仕事が出来そうです。