Como saber cuando un archivo esta en uso

[[EX3]]

En el procedimiento donde cargas el archivo puedes hacer dos cosas:

Código:

 Sub Forma1()
    On Error Goto ErrOut

    'trato de cargar el archivo

 ErrOut:
    If Err.Number = 55 or <codigo error que te de> Then 
'Significa que el archivo esta abierto
    End If

 End Sub

 Sub Forma2()
     On Error Resume Next

    'trato de cargar el archivo

    If Err.Number = 55 or <codigo error que te de> Then 
'Significa que el archivo esta abierto
    End If

    'continuo ejecucion

 End Sub 

El codigo error te sirve para averiguar si el archivo esta abierto o en uso, una sencilla comprobacion como los ejemplos de arriba te sirve para saberlo.

Salu2...