Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

xlVeryHidden

45 views
Skip to first unread message

Avergaston

unread,
Feb 25, 2009, 8:34:00 AM2/25/09
to
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.

Héctor Miguel

unread,
Feb 25, 2009, 11:54:57 AM2/25/09
to
hola (...), ???

(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.


Avergaston

unread,
Feb 25, 2009, 12:26:08 PM2/25/09
to
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

0 new messages