switch off keyboard and mouse input

[Chris Davison]

Morning all and Merry Xmas,

some of my stupid clients insist on still trying to type and mouseclick whilst a macro is running that uses SENDKEYS and MOUSECLICK input..... obviously, this messes up the macro and it goes in the wrong direction or crashes

is it possible to disable any manual keyboard input and mouse clicking input at the beginning of the macro and switch them back on at the end of the macro so they can't do this ?

many thanks
Chris

 

[CDICKENS]

This API function will hide the mouse Cursor...

Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
 
'Hide mouse cursor
Call ShowCursor&(0)
 
'Show mouse cursor
Call ShowCursor&(1)

Caveat! This hides the cursor from ALL open applications.

What are you using sendkeys for?

SendMessage API may be a better alternative.

Chuck[/url]

 

[Joe Was]

Public inputMsg As String
Sub BlockInPut()
'Stop input for mouse only on message!

'Turn off number pads ENTER key.
Application.OnKey "{ENTER}", "myMsg"

'Turn off regular ENTER key.
Application.OnKey "~", "myMsg"

'Turn off all character keys.
Application.Interactive = False

'GoTo myMsg Sub.
myMsg
End Sub

Sub myMsg()
Dim Note
'Display Message box.
inputMsg = "Your Keyboard Input has been Stopped! Please use you Mouse to Respond!"
Note = MsgBox(inputMsg, vbOKCancel + vbDefaultButton2 + vbCritical, "Your Stopped!")
If Note = vbCancel Then
BlockInPut
End If
'GoTo RestoreInPut Sub.
RestoreInPut
End Sub

Sub RestoreInPut()
'Turn on all keys!
Application.Interactive = True
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
RestoreInPut
End Sub



Then code like this:


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'ThisWorkbook module code!

If Sh.Name = "Sheet2" Then
Cancel = True
End If

End Sub


Will stop the mouse Right-Click on Sheet2!