Ocultar hojas al abrir excel
Buenos días,
Tengo un excel con una macro asociada "auto _ open" que al abrir el fichero, muestra un mensaje y seguidamente oculta unas hojas en concreto.
Funciona bien, el problema es que cuando lo cierro y lo vuelvo a abrir, como ya están ocultas da un error.
¿como puedo hacer que oculte las hojas solo si están "visibles"?
Aquí os dejo como tengo programado el modulo:
Sub auto _ open()
MsgBox ("Prueba de ocultar hojas")
Sheets ("Hoja1"). Select ActiveWindow. SelectedSheets. Visible = False
Sheets ("Hoja2"). Select ActiveWindow. SelectedSheets. Visible = False
Sheets ("Hoja3"). Select ActiveWindow. SelectedSheets. Visible = False
End Sub
1 Respuesta
Tu problema está en la insrucción Select, xq estás intentando 'seleccionar' una hoja oculta.
Usá esta sintaxis para cada una de tus hojas:
If Sheets("Hoja2").Visible = True Then Sheets("Hoja2").Visible = False
PD) Intenté escribirte al mail que dejaste en consulta anterior pero me vino de regreso. Escribime al correo que podés tomar de mi sitio que dejo al pie.
