Notifications
Clear all

Macro Sair Guia - Sheet

3 Posts
2 Usuários
0 Reactions
1,337 Visualizações
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Inseri um código no módulo e um botão na planilha 2 com o seguinte:

Sub Botão2_Clique()
Worksheets("Plan3").Activate ' Aqui ativa a planilha 3 ao clicar no botão
Worksheets("Plan2").Visible = xlSheetVeryHidden 'Oculta a planilha 2
End Sub

Como eu deixo sempre as Guias de Planilhas, acho que o usuário ao invés de clicar no botão para "Sair" localizado na planilha 2 (o que ocultaria a planilha 2 e iria para a Planilha 3), penso que podem clicar diretamente na Guia da Planilha 3 e sendo assim a macro não irá funcionar.

Resumindo o que preciso:
Uma macro que ao sair da planilha 2 (de qualquer forma - clicando no botão ou na guia) , a macro iria funcionar.

 
Postado : 26/11/2019 1:02 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

A Excel tem vários "níveis" de modulos:
Modulo Formulario, Modulo Geral, Modulo de planilha (Plan1...) e Modulo 'Esta pasta de trabalho
Experimente no evento Activate e/ou Deactivate de cada planilha "chamar" o respectivo botão

Reinaldo

 
Postado : 26/11/2019 1:44 pm
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Deu certo, coloquei o evento abaixo na Planilha....

Private Sub Worksheet_Deactivate()
               Worksheets("Plan2").Visible = xlSheetVeryHidden 'Ocultar
End Sub

Muito obrigado

 
Postado : 26/11/2019 2:35 pm