Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO NÃO RETORNA N...
 
Notifications
Clear all

MACRO NÃO RETORNA NA PLANILHA CORRETA

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
1,291 Visualizações
RSS
 EMilitão
(@emilitao)
Posts: 0
New 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: 0
New 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

 
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

 
Postado : 14/07/2017 7:15 am
 EMilitão
(@emilitao)
Posts: 0
New 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
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei o que você fez, mas teste o arquivo.

Att

 
Postado : 28/07/2017 8:04 am
Forum Jump:
  Tópico Anterior
Próximo Tópico