Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por fabril15 02 Dez 2019 às 13:54
Membro 1 Estrela
Mensagens: 10
Reputação: 0
#50789
Bom dia,
Espero que possam me ajudar!


Tenho uma planilha que quando ela é aberta, é executado uma instrução para que alguns itens sejam ocultados:
________________________________________________
Sub Tela_cheia()

'Quando abrir o arquivo
Sheets("Instruções").Visible = True
Sheets("BM").Visible = True
Sheets("RATEIO").Visible = True
'
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With

End Sub
________________________________________________

E quando o arquivo é fechado, é executado outras instruções para que exposto os itens que foram ecultos:
________________________________________________
Sub Fechar()

'Quando fechar o arquivo
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With

End Sub
________________________________________________

O problema:
Quando este arquivo esta aberto, está afetando outros arquivos que estejam abertos, e quando o aquivo em questão é fechado, mesmo a instrução de fechamento sendo executada, a 'barra de formulas' e 'barra de status' permanecem ocultas.

Queria uma ajuda pra concertar essa instrução, ou modificar.

Fico no aguardo, e desde já, agradeço!!!
Avatar do usuário
Por Jimmy 02 Dez 2019 às 14:38
Membro 5 Estrelas
Mensagens: 1160
Reputação: 772
#50791
Olá Fabril,

Comigo o problema não ocorreu, e tudo reapareceu para as demais planilhas abertas, após fechar a planilha em questão.

Tente fazer uma alteração. Se a macro do evento Open efetua A, B, C, D e E, tente fazer a macro do evento Close desfazer nessa ordem: E, D, C, B e A. Só um palpite porque não consegui reproduzir o erro.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo" existente acima e a direita de cada mensagem.

Jimmy San Juan
Avatar do usuário
Por Jimmy 02 Dez 2019 às 18:13
Membro 5 Estrelas
Mensagens: 1160
Reputação: 772
#50798
Outra tentativa:

Substitua:

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False


Por:

Application.DisplayFullScreen = True

Pois faz o mesmo papel, sem ter que referenciar bibliotecas antigas do Excel.

Nas mensagens que colaboram para a solução do problema, peço que dê um Like, clicando no botão com o "positivo existente acima e a direita de cada mensagem.

Jimmy San Juan