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

Hola Y gracias.

Como lo necesitaba rápidamente seguí rompiendome las escrecencias calcareas y al final hice algo parecido.
Creo recordar que fue poco mas o menos:

Sub ComprobarLibroAbierto()
Dim W As Workbook
On Error Resume Next
Set W = Workbooks("MiLibro.xls")
if err.number <>0 then
msgbox "Le cerraste"
workbooks.Open(Abre lo que cquieras)
end if
err.clear
End Sub

Empecé probando con:

Sub abrirLibro()
On Error Resume Next
if hArt = "" then ' Variable que se refiere a una hoja
workbooks.Open(Abre lo que cquieras)
err.clear
end if
End Sub


Pero se le podía engañar
Saludos
Des


"Luis Medina" escribió en el mensaje news:

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
>
>
>