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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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