Ocultar todas las hojas excepto la activa

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