Anónimo
Comprobar en una macro si un libro está abierto
Hola.
Tengo desarrollada una macro que abre otro libro y quiero verificar antes de hacer esta operación si ya está abierta para evitar que de el mensaje de aviso y cancele. También me vale información sobre como verificar la respuesta que el usuario ha dado a ese mensaje.
Agradeceré cualquier información relativa a este tema que pueda ayudarme a plantear otra alternativa, si procede.
Un saludo,
Tengo desarrollada una macro que abre otro libro y quiero verificar antes de hacer esta operación si ya está abierta para evitar que de el mensaje de aviso y cancele. También me vale información sobre como verificar la respuesta que el usuario ha dado a ese mensaje.
Agradeceré cualquier información relativa a este tema que pueda ayudarme a plantear otra alternativa, si procede.
Un saludo,
1 Respuesta
Respuesta de jferg
1
Dim Libros As Workbook
Dim EstaAbierto As Boolean
For Each Libros In Application.Workbooks
If Libros.Name = "ElNombreDeMiLibro.xls" Then
EstaAbierto = True
Exit For
End If
Next Libros
If EstaAbierto Then
'Tus instrucciones por ejemplo MsgBox "Abierto"
Else
'Tus instrucciones por ejemplo MsgBox "Cerrado"
End If
Dim EstaAbierto As Boolean
For Each Libros In Application.Workbooks
If Libros.Name = "ElNombreDeMiLibro.xls" Then
EstaAbierto = True
Exit For
End If
Next Libros
If EstaAbierto Then
'Tus instrucciones por ejemplo MsgBox "Abierto"
Else
'Tus instrucciones por ejemplo MsgBox "Cerrado"
End If