SoloCodigo

Supongo que lo que buscas es bloquear el input de datos MIENTRAS EJECUTAS UN PROCESO, y que cuando éste termine se desbloqueen el teclado y el mouse automáticamente...
Prueba esto (yo lo uso mientras ejecuto las copias de seguridad, con éxito garantizado...)

' ------------
' EN UN MODULO
' ------------

' Para desactivar el teclado mientras se ejecuta un proceso externo
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
    Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Const STILL_ACTIVE = &H103
    Const PROCESS_QUERY_INFORMATION = &H400

    Public Sub ExecCmdNoFocus(ByVal CmdLine As String)
        'Esperar a que un proceso termine,
        'La ventana se mostrará minimizada sin foco
        Dim hProcess As Long
        Dim RetVal As Long
        'The next line launches CmdLine as icon,
        'captures process ID
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedNoFocus))
        Do
        'Get the status of the process
        GetExitCodeProcess hProcess, RetVal
        'Sleep command recommended as well
        'as DoEvents
        DoEvents
        Sleep 100
        'Loop while the process is active
        Loop While RetVal = STILL_ACTIVE
    End Sub



' -------
' LLAMADA
' -------

Private Sub Rutina...
'
'
'
ExecCmdNoFocus (Proceso a ejecutar...)
' ------------------------------------
'
'
End Sub


Saludos y suerte, a ver si he dado con tus necesidades...

Yo utilizo esa rutina para hacer las copias de seguridad, y puedo asegurarte que hasta que no termina el proceso mi teclado y mi mouse están bloqueados...
Probablemente sea cosa del Windows 2000, porque en XP va bien.