Hi,
Sorry, the old DOS trick doesn't work anymore.

I found two other methods. The first uses API's.

Declare Function BlockInput Lib "USER32.dll" (ByVal fBlockIt As Long) As
Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test() 'both keyboard and mouse blocked
BlockInput True 'off
' call sub:
'optional: Sleep 5000
BlockInput False 'on
End Sub

And the second from an MS Article mentioning Excel specifically. I haven't
test it so I don't know about other apps running.

' Macro to turn off keyboard entry.
Sub KeyboardOff()
' Sets CTRL+D to activate KeyboardOn.
Application.OnKey "^d", "KeyboardOn"
Application.DataEntryMode = True
End Sub

' Macro to restore keyboard entry.
Sub KeyboardOn()
Application.DataEntryMode = False
End Sub

--

John

johnf202 at hotmail dot com


"kk" wrote in message
om...
"jaf" wrote in message
...
Hi,
shell("mode con=off") to disable keyboard.
shell("mode con=on") to enable.

If your code crashes a hard reboot will be required. No keyboard, no
ctl-alt-del.

No idea on the mouse.


Thanks, but it doesn't work, i get error message "run time error 53;
file not found", and it stops at that line.

regards