Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Seleção de Abas Para Ocultação

Dúvidas gerais sobre Excel
Fabio Tremarin
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Dez 17, 2020 10:50 am

Seleção de Abas Para Ocultação

Mensagem por Fabio Tremarin »

Ola, amigos!
Já pedi ajuda na aba VBA Básico do fórum mas não tive um ajuda.

Escrevi um código VBA para que ao fechar a planilha uma ação ocorra, no caso tornar as abas "invisíveis". Ao escrever o código inseri o seguinte:

Código: Selecionar todos


ThisWorkbook.Sheets.Visible = False
ThisWorkbook.Save

Ao executar isso gera um erro, pois pelo menos uma aba deve estar visível, mas não sei como selecionar apenas algumas abas (e não todas pelo "ThisWorkbook.Sheets") para executar isso.

Seguindo isso, tenho o mesmo problema (com o For Each) nesse código:

Código: Selecionar todos


Private Sub CommandButton1_Click()

For Each plans In ThisWorkbook.Sheets

If caixa_senha.Value = "PMOLM2020" Then
             
        plans.Visible = True
                Unload AtivaSenha
        Worksheets("Menu").Range("Z1").Value = "PMOLM2020"
        plans.Activate
                             
    Else
    
        MsgBox ("Senha inválida!")
        caixa_senha.Value = ""
    
    End If
    
    Next
    
End Sub

Ao executar preciso que apenas algumas abas sejam ocultadas e não todas do arquivo.

Alguém pode me ajudar com isso?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Seleção de Abas Para Ocultação

Mensagem por Raygsson »

Isso é bem simples, você pode fazer um loop For Each nas planilhas e ir ocultando todas menos uma.
Na que vai deixar pode fazer o teste pelo índice ou pelo nome da planilha, segue dois exemplos:
Obs: Ocultando com o "xlVeryHidden" só vai conseguir voltar a exibir com código VBA.

Código: Selecionar todos

Sub ocultar()

        For Each plan In ThisWorkbook.Sheets
        
            If plan.Index <> 1 Then
                plan.Visible = xlVeryHidden
            End If
            
            If plan.Name <> "inicio" Then
                plan.Visible = False
            End If
           
        Next

End Sub



Fabio Tremarin
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Dez 17, 2020 10:50 am

Re: Seleção de Abas Para Ocultação

Mensagem por Fabio Tremarin »

Ola Raygsson!

Obrigado pelo apoio.
Na sexta executei exatamente isso e funcionou.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder