Notifications

Clear all

MACRO NÃO RETORNA NA PLANILHA CORRETA

2024 - VBA & Macros

Post Recente por Fernando Fernandes 7 anos atrás

5 Posts

3 Usuários

0 Reactions

1,293 Visualizações

RSS

EMilitão

(@emilitao)

Posts: 8

Active Member

Topic starter

Boa noite!

Meus caros,
Tenha a macro abaixo para sempre que abrir um determinado arquivo do excel vir a Plan1. Na Plan1 tem um hiperlink para abrir a Plan2. Porém, quando altero algo na Plan2, salvo e fecho, não retorna na Plan1 como deveria.

Peço ajuda para o caso acima e também se é possível desabilitar o botão fechar do excel, nesta planilha, pois tenho um botão específico.

Desde já, obrigado.

Private Sub Workbook_Activate()

    Sheets("Plan1").Select
    Sheets("Plan3").Visible = False
    Sheets("Plan4").Visible = False
    Sheets("História").Visible = False
    
End Sub

Postado : 13/07/2017 7:34 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Mude de "Workbook_Activate()" para "Workbook_Open()" e insira o mesmo código.

Se não resolver, atribua essa rotina à opção "Workbook_BeforeClose()" da Planilha, que antes de fechar, a Plan1 será selecionada para que já esteja ativada/selecionada ao abrir.

Se ainda assim não resolver, poste a planilha que olhamos para você!

Espero ter ajudado

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 14/07/2017 5:56 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Conforme falado pelo Leandro...

Private Sub Workbook_Open()
Dim ws As Worksheet

Worksheets("Plan1").Select
'Worksheets("Plan1").Visible = False
    For Each ws In ActiveWorkbook.Worksheets
        Select Case UCase(ws.Name)
            Case "Plan3", "Plan4", "História"
                ws.Visible = False ' Ou use...--> xlSheetHidden
            Case Else
                ws.Visible = True
        End Select
    Next ws
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 14/07/2017 7:15 am

EMilitão

(@emilitao)

Posts: 8

Active Member

Topic starter

Boa Noite!
Caros Leandro e Alexandre,
Não funcionou. Não se pelo meu pouco conhecimento.
Em anexo, a planilha com dados que dará para compreendê-la.

Até logo.

Postado : 14/07/2017 5:19 pm