Evitar que Excel cierre libro oculto al cerrar otro libro no oculto
Tengo un libro de Excel que se oculta automáticamente al abrir el archivo, mostrándome solo un formulario vba. Todo funciona a la perfección, excepto cuando cierro cualquier otro libro que tenga abierto ya que también se cierra el libro oculto.
¿Hay alguna manera de evitar esto?
Respuesta de fejoal
1
.12.12.16
Buenas tardes,
Es curioso porque no debería ocurrir, a menos que cierres la aplicación MS Excel y ese no archivo no hubiera tenido cambios.
En cualquier caso, podrías solucionarlo atrapando el evento de cierre de ese archivo con la siguiente rutina que colocarás a continuación de la que tienes para que se oculte al abrir:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
quehago = MsgBox("Desea cerrar el libre oculto " & ThisWorkbook.Name & "?", vbYesNo, "PERMITIR CIERRE ARCHIVO OCULTO")
If quehago = vbYes Then
ThisWorkbook.Close
Else
Cancel = True
End If
End Sub.
