Lock Keyboard & Mouse

How would lock out the Keyboard & Mouse so that nothing can be done until after my script is finished running?

Hello Mpeplow,

Be careful when using these macros. If you forget to call UnLockInput, you will be S.O.L. Here is the code. Add a Standrard VBA Module to code then copy and paste the code into it.

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Public Sub LockInput()
  Dim RetVal
    RetVal = BlockInput(-1&)
End Sub

Public Sub UnlockInput()
  Dim RetVal
    RetVal = BlockInput(0&)
End Sub

Sincerely,
Leith Ross