listar hojas ocultas: xlSheetVeryHidden

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

Muchas gracias!

Hola J.M.:
1º en el proyecto están todas las hojas (estén visibles,

ocultas o muy

ocultas)
2º si querés verlas en un listado:

Sub visible_Todas()

For Each r In Worksheets
msg = msg & r.Name & vbCrLf
Next
MsgBox msg
End Sub

3º si querés hacerlas visibles

Sub visible_Todas()

For Each r In Worksheets
r.Visible = xlSheetVisible
Next
End Sub

Saludos, fer

"Jorge M" escribió

en el mensaje

news:190201c4a648$d454f450$
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...



.

Gracias Fredy, pero este procedimiento no muestra las
hojas muy ocultas...

Con este ya logré mostrarlas todas:

Sub Visible_Todas()
For Each r In Worksheets
r.Visible = xlSheetVisible
Next
End Sub

gracias de nuevo!

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

.

Hola J.M.:
1º en el proyecto están todas las hojas (estén visibles, ocultas o muy
ocultas)
2º si querés verlas en un listado:

Sub visible_Todas()

For Each r In Worksheets
msg = msg & r.Name & vbCrLf
Next
MsgBox msg
End Sub

3º si querés hacerlas visibles

Sub visible_Todas()

For Each r In Worksheets
r.Visible = xlSheetVisible
Next
End Sub

Saludos, fer

"Jorge M" escribió en el mensaje
news:190201c4a648$d454f450$
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...