Para indicar una hoja activa se necesita especificar el siguiente comando : ActiveWorkbook.Sheets. En caso se quiera ocultar las demás hojas menos en la que te encuentras trabajando deberás usar el comando de visibilidad de hoja (Sheet.Visible ) , el cual te permite mostrar o ocultar hojas por medio de una macro. En caso se requiera ocultar una hoja se deberá indicar False caso contrario True. Todo ello necesita de un condicional (If) que permita a su vez una acción repetitiva (For Each - Next) y con ello oculte todas las hojas que no estén activas.
Pasos a seguir:
Sub Ocultarhojasmenoslaactiva()
Indicar la acción repetitiva que se llevará acabo en el libro
For Each Sheet In ActiveWorkbook.Sheets
Indicar la acción un condicional : Si la hoja esta activa oculatar las demás hojas
If Sheet.Name <> ActiveSheet.Name Then
Sheet.Visible = False
Terminar condicional
End If
Terminar acción repetitiva
Next Sheet
End Sub
Por: Ingrid Rosas
5 comentarios
Escriba un comentario →