xlVeryHidden

25/02/2009 - 14:34 por Avergaston | Informe spam
Hola a todos.
Cuando oculto una hoja para que no se vea desde. Formato-hoja-mostrar, ocupo
el comando "xlVeryHidden".

Ahora quiero ocultar un grupo de hojas de la siguiente manera:
Sheets(Array("Hoja1", "Hoja2", "Hoja3","Hoja4")).Select
ActiveWindow.SelectedSheets.Visible = xlVeryHidden

Pero me da error. Me pueden decir cual es el comando correcto ?.

Puedo usar FALSE en lugar de xlVeryHidden, pero se veria desde el menu
Formato-hoja-mostrar.

Gracias.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/02/2009 - 17:54 | Informe spam
hola (...), ???

Cuando oculto una hoja para que no se vea desde. Formato-hoja-mostrar, ocupo el comando "xlVeryHidden".
Ahora quiero ocultar un grupo de hojas de la siguiente manera:
Sheets(Array("Hoja1", "Hoja2", "Hoja3","Hoja4")).Select
ActiveWindow.SelectedSheets.Visible = xlVeryHidden
Pero me da error. Me pueden decir cual es el comando correcto ?.
Puedo usar FALSE en lugar de xlVeryHidden, pero se veria desde el menu Formato-hoja-mostrar.



(hasta donde se) para ocultar (o mostrar) "grupos" de hojas puedes usar (al menos) las siguientes formas:

op1:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Visible = False

op2:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Select
ActiveWindow.SelectedSheets.Visible = False

nota: esta opcion requiere que TODAS las hojas esten previemente visibles
y NO se puede usar la propiedad 'xlSheetVeryHidden'
esta propiedad solo es aplicable a objetos (work)sheet individualmente

op3: usando un bucle 'For...Next' (incluso para mostrarlas de nuevo)... +/- como sigue:
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja5"))
Hoja.Visible = xlSheetVeryHidden
Next

saludos,
hector.
Respuesta Responder a este mensaje
#2 Avergaston
25/02/2009 - 18:26 | Informe spam
Gracias por responder.

Probe con todo exito la opcion numero 3. Que es lo que estaba necesitando.

op3: usando un bucle 'For...Next' (incluso para mostrarlas de nuevo)... +/-
como sigue:
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja5"))
Hoja.Visible = xlSheetVeryHidden
Next

Gracias y saludos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida