listar hojas ocultas: xlSheetVeryHidden

29/09/2004 - 19:22 por Jorge M | Informe spam
Buenas tardes a todos,

mediante este código puedo ocultar la hoja rutas de un
libro de excel:
Worksheets("Rutas").Visible = xlSheetVeryHidden
y mediante este otro volverla visible:
Worksheets("Rutas").Visible = xlSheetVisible

Supongamos que olvidé el nombre de las hojas que oculté
mediante este método... cómo puedo hacer para saber el
nombre de todas las hojas que de esta manera fueron
ocultadas...

o si no es posible listar los nombres cómo puedo hacer
que se vuelvan visibles todas?

Gracias por la colaboración...
 

Leer las respuestas

#1 fredy rojas
29/09/2004 - 21:00 | Informe spam
prueba con este codigo para ver todas las hojas

Sub vertodashojas()
Dim hojas
todas = ThisWorkbook.Worksheets.Count
For i = 1 To hojas
Sheets(i).Visible = True
Next i
End Sub
Buenas tardes a todos,

mediante este código puedo ocultar la hoja rutas de un
libro de excel:
Worksheets("Rutas").Visible = xlSheetVeryHidden
y mediante este otro volverla visible:
Worksheets("Rutas").Visible = xlSheetVisible

Supongamos que olvidé el nombre de las hojas que oculté
mediante este método... cómo puedo hacer para saber el
nombre de todas las hojas que de esta manera fueron
ocultadas...

o si no es posible listar los nombres cómo puedo hacer
que se vuelvan visibles todas?

Gracias por la colaboración...
.

Preguntas similares