Ir para conteúdo
Entre para seguir isso  
Tank17

macro para reexibir todas as abas no excel

Mensagem Recomendada

Com essas duas macros você oculta e reexibi.

Sub OcultarPlan()

Plan1.Visible = False

End Sub

Sub ReexibirPlan()

Plan1.Visible = True

End Sub

Editado por nascimento_ja

Compartilhar este post


Link para o post
Compartilhar em outros sites
Tank17   
Com essas duas macros você oculta e reexibi.

Sub OcultarPlan()

Plan1.Visible = False

End Sub

Sub ReexibirPlan()

Plan1.Visible = True

End Sub

Valeu pela resposta mas eu tava querendo algo generico esse e para a plan1 eu queria uma macro para abrir todas independente de nome que isso ia facilitar minha vida e muito

obrigado des de ja

Compartilhar este post


Link para o post
Compartilhar em outros sites
Tank17   

Para entender melhor eu tenho uma planilha com senha de acesso

quando ela abre tem uma macro auto open que reexibi a aba senha e esconde a as guias da planilha assim a pessa so pode ver a aba da senha. quando se digita a senha e aba senha volta a ficar oculta.

eu queria uma macro para abilitar todas a abas ao abrir a planilha e depois que e pessoa colacar a senha eu poderia ocultar as que nao dissem respeito a elas

eu fiz isso ja mais da erro as vezes porque e macro vai abrir uma aba que ja esta aberta ai da erro ou da erro quando a macro tenta ocultar uma aba que ja esta oculta

quero um macro para abrir todas as ocultas que ai nao dara mais esse tipo de erro

Compartilhar este post


Link para o post
Compartilhar em outros sites

Teste esta aquí e retorne.

Sub ExibirPlanilhas()

Dim wkb As Workbook

Dim wks As Worksheet

Dim intUltimoDia As Integer

Set wkb = ThisWorkbook

For Each wks In wkb.Worksheets

wks.Visible = xlSheetVisible

Next wks

End Sub

Editado por nascimento_ja

Compartilhar este post


Link para o post
Compartilhar em outros sites
Tank17   
Teste esta aquí e retorne.

Sub ExibirPlanilhas()

Dim wkb As Workbook

Dim wks As Worksheet

Dim intUltimoDia As Integer

Set wkb = ThisWorkbook

For Each wks In wkb.Worksheets

wks.Visible = xlSheetVisible

Next wks

End Sub

Cara erra isso mesmo oque eu queria valeu ai pela ajuda!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  

×