Ocultar hojas
Hola en la primera hoja de mi libro de
excel 2007 tengo un menu con botones los cuales al presionar me permiten
ir a las otras hojas del libro.. ¿como puedo ocultar todas las hojas, excepto la primera que es donde tengo mi menu. LA IDEA ES que solo se vea la
hoja donde tengo el menu y que mis mis macros sigan
funcionado.
Gracias por su tiempo y colaboración.
Jaime
excel 2007 tengo un menu con botones los cuales al presionar me permiten
ir a las otras hojas del libro.. ¿como puedo ocultar todas las hojas, excepto la primera que es donde tengo mi menu. LA IDEA ES que solo se vea la
hoja donde tengo el menu y que mis mis macros sigan
funcionado.
Gracias por su tiempo y colaboración.
Jaime
1 Respuesta
Respuesta de Elsa Matilde
1
Parece que aquí sí querés ocultar las hojas...
En el Editor, seleccioná con doble clic el objeto ThisWorkbook y escribí esta rutina:
Private Sub Workbook_Open()
For Each sh In Worksheets
'si se trata de la primer hoja no se ocultará
'REEMPLAZAR Hoja1 POR EL NOMBRE DE LA HOJA PRINCIPAL
If sh.Name <> "Hoja1" Then
sh.Visible = xlVeryHidden
End If
Next
End Sub
Luego tus botones deberán primero hacerla visible para poder seleccionarla.
Por ej. para el botón que te lleva a la hoja2 la rutina será:
Sub aHoja2()
Sheets("Hoja2").Visible = True
Sheets("Hoja2").Select
End Sub
Saludos y no olvides finalizar. Si te queda alguna duda seguimos en la otra consulta que aún está abierta.
En el Editor, seleccioná con doble clic el objeto ThisWorkbook y escribí esta rutina:
Private Sub Workbook_Open()
For Each sh In Worksheets
'si se trata de la primer hoja no se ocultará
'REEMPLAZAR Hoja1 POR EL NOMBRE DE LA HOJA PRINCIPAL
If sh.Name <> "Hoja1" Then
sh.Visible = xlVeryHidden
End If
Next
End Sub
Luego tus botones deberán primero hacerla visible para poder seleccionarla.
Por ej. para el botón que te lleva a la hoja2 la rutina será:
Sub aHoja2()
Sheets("Hoja2").Visible = True
Sheets("Hoja2").Select
End Sub
Saludos y no olvides finalizar. Si te queda alguna duda seguimos en la otra consulta que aún está abierta.
