xxxxxxxxxx
' Disable keyboard and mouse interactions
Application.Interactive = False
xxxxxxxxxx
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Boolean) As Boolean
Sub DisableKeyboardInput()
' Disable keyboard input
BlockInput True
End Sub