Macro para ocultar todas las hojas al abrir un libro excepto la primera.

Para imprimir

Hazlo así

Hoja1.visible = la opción que dice visible

Aquí el macro de imprimir 

Hoja1.visible = la opción que hidde

Saludo no olvide valorar si te silve para cerrar la pregunta

Gracias por responder Aneudys pero me podrias explicar con mas detalle  porque no entendi lo que  quieres que haga. segun entendi que debo escribir esto Hoja1.visible = la opción que dice visible antes de la macro y esto al final Hoja1.visible = la opción que hidde

Disculpa que no fui más preciso pero era desde mi cel que estaba respondiendo

Te voy a dar mi rutina de como lo hago para tu pregunta

Así oculto las hojas en el libro en el evento open del thisworkbook una por uno para luego visuliasar la que quiero

Private Sub Workbook_Open()
Hoja1.Visible = xlSheetVeryHidden
Hoja2.Visible = xlSheetVeryHidden

......las demas hojas que tengas
End Sub

Luego cuando quiero que se visualicen solo lo hago así el la macro o botón que se necesite

sub ver_hoja()

Hoja1.Visible =xlSheetVisible

end sub

Saludos no olvides valorar si te silve y si tiene más dudas siguie preguntando

Gracias por tu pronta respuesta. Si me funciono correctamente la macro Aneudys, si yo utilizara nada más el libro no tendría problemas que quedara así, el asunto es que voy a compartir el libro con otro compañero de trabajo y pues el no tiene conocimientos básicos de excel y se le haría complicado que yo le dijera que tiene que irse a la ficha programador y de ahí seleccionar macros y desproteger las hojas para poder imprimir. Ya que el archivo tiene un botón asignada a la macro de impresión pero por ejemplo si quiero imprimir directamente estando oculta las hojas me manda un error en el código que menciono más arriba. No se si me explique bien o te puedo mandar el archivo para que lo cheques y hagas pruebas de que no permite imprimir estando oculta las hojas.

Atentamente.

Luis Enrique

Ok

Este es mi correo [email protected]

Y le doy un vistazo

ya te acabo de enviar el archivo  Aneudys checalo y espero tus comentarios. gracias

Hermano revisa ahora aver que tal

Que tal Aneudys,

Primeramente muchas gracias por la ayuda, me funciono perfecto la macro, nada más tengo unas dudas.

¿Por qué después de mandar la impresión no se cierra el formulario automáticamente?

¿Si yo quisiera hacerle una modificación a las hojas ocultas, tendría que usar otra macro para mostrar las hojas o tendría que modificar el código que hace que oculte las hojas?

¿Qué función tiene la Macro1 y MIRO?

No te preocupes, yo también a veces los fines de semana me desconecto.

Espero tus respuestas.

Atentamente.

Luis Enrique