none
Bloquer ou Ocultar todas as Planilhas da pasta de trabalho ? RRS feed

  • Pergunta

  • Prezados,

    eu tenho uma pasta de trabalho com mais de 30 planilhas (guias), existe uma rotina em VBA, onde eu possa ocultar todas as planilhas assim que aberto a pasta de trabalho, e quando eu precisar reexibir todas ? Mas preciso que oculte e fique bloqueado para reexibir.

    Sei que existe a opção de ocultar todas uma por uma pelo construtor VBA em propriedades, mas é complicado, uma rotina seria mais prático e viável.

    Att,

    Estanislau Frade


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com

    quinta-feira, 16 de agosto de 2012 12:44

Respostas

  • Sub OcultarTodas()
        Const sExceção As String = "Plan1"
        
        Dim ws As Worksheet
        
        For Each ws In Sheets
            If ws.Name <> sExceção Then
                ws.Visible = xlSheetHidden
            End If
        Next ws
    End Sub
    
    Sub MostrarTodas()
        Dim ws As Worksheet
        
        For Each ws In Sheets
            ws.Visible = xlSheetVisible
        Next ws
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Estanislau Frade sexta-feira, 17 de agosto de 2012 12:57
    quinta-feira, 16 de agosto de 2012 21:32
    Moderador