Comprobacion inequivoca de que un libro está abierto

Utilice estos dos procedimientos: el primero programa la aplicación para que
ejecute el segundo cada 10 segundos. El segundo, vuelve a llamar al primero
para que vuelva a programar el siguiente proceso.

Sub HoraChequeo()
Application.OnTime Now + TimeValue("00:00:10"), "ComprobarLibroAbierto"
'Ejecuta el procedimiento de comprobación
End Sub

Sub ComprobarLibroAbierto()
Dim W As Workbook
On Error GoTo Cerrado
Set W = Workbooks("MiLibro.xls")
Call HoraChequeo
Exit Sub
Cerrado:
MsgBox "Me han cerrado MiLibro.xls !!!", vbCritical
End Sub

Luis Antonio


"Desastres" escribió en el mensaje
news:

Buenos días

Puede alguien decirme un metodo para hacer una comprobacion inequivoca que

permita < EN TODO MOMENTO> asegurar

que un libro esta abierto?

Saludos
Des