Anónimo
Desocultar Ventana Excel basandose en un celda
Buenas Tardes:
Tengo un fichero que se alimenta de otros dos ficheros excel. A través de VBA consigo hacer que en la apertura del libro "madre", se abran estos ficheros auxiliares quedando ocultos para que el usuario no perciba que están abiertos.
Quiero generar una macro de cierre para que estos ficheros ocultos se muestren antes de cerrar el fichero "madre". El problema es que no me deja basar el Windows("NombreLibro.xlsx").visible=True en el valor de una celda que determina el Path de estos ficheros.
¿Existe alguna manera de hacer que me considere el valor de esa celda para desocultar los ficheros auxiliares?
Muchas Gracias de antemano.
Un saludo
Juan
Tengo un fichero que se alimenta de otros dos ficheros excel. A través de VBA consigo hacer que en la apertura del libro "madre", se abran estos ficheros auxiliares quedando ocultos para que el usuario no perciba que están abiertos.
Quiero generar una macro de cierre para que estos ficheros ocultos se muestren antes de cerrar el fichero "madre". El problema es que no me deja basar el Windows("NombreLibro.xlsx").visible=True en el valor de una celda que determina el Path de estos ficheros.
¿Existe alguna manera de hacer que me considere el valor de esa celda para desocultar los ficheros auxiliares?
Muchas Gracias de antemano.
Un saludo
Juan
1 Respuesta
Respuesta de calvuch
1
En libro "madre" ( para mi "Libro1") en ele ventó Workbook_BeforeClose del objeto ThisWorkbook pones esta llamada:
Cerrar
Y en algún modulo de tu hoja madre pones este sub
Sub cerrar()
If Hoja1.Cells(1, 1) = 1 Then
Windows("Libro2.xls").Visible = True
End If
End Sub
Si la celda A1 es igual a 1 entonces hará visible el libro que estaba oculto en este caso el libro2
Cerrar
Y en algún modulo de tu hoja madre pones este sub
Sub cerrar()
If Hoja1.Cells(1, 1) = 1 Then
Windows("Libro2.xls").Visible = True
End If
End Sub
Si la celda A1 es igual a 1 entonces hará visible el libro que estaba oculto en este caso el libro2