Este fórum está sendo desativado

[fabril15]

Bom dia!
Espero que possam me ajuda!

Tenho um arquivo que preciso utilizar ele em tela cheia. Utilizei umas instruções, mas percebi que estava afetando outros arquivos aberto do Excel. Mudei para um código como sugestão de um colega aqui do fórum, ficou assim:
______________________________________________
Private Sub Workbook_Open()

Application.DisplayFullScreen = True

End Sub
-------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False

End Sub
______________________________________________

Daí percebi que:
- Quando abro este aquivo com esta instrução, e depois abro qualquer outro arquivo, a 'Barra de Fórmula' fica oculta;
- As guias permanecem visíveis, precisaria que ficassem ocultas;
- Se o usuário clicar em 'ESC', minimizar ou restaurar o tamanho, tirando de maximizar, ele volta para o modo normal do Excel. Na instrução que eu tinha feito não permitia isso. Como podemos ajustar isto?

Fico no aguardo do retorno.
E muito obrigado mais uma vez.

[osvaldomp]

substitua:

Private Sub Workbook_Open() por Private Sub Workbook_Activate()

e

Private Sub Workbook_BeforeClose(Cancel As Boolean) por Private Sub Workbook_Deactivate()

[fabril15]

Osvaldo, bom dia!

Obrigado!
Deu certo, mas quando eu abro esse arquivo, e abro outro, a barra de fórmula oculta... e se eu fechar tudo, e abrir um arquivo novo, limpo, a barra não aparece, tenho que ir em exibir, e flegar a opção da barra de fórmula....

E o ESC ainda continua. Daí se o usuário teclar o ESC ele volta a ter o acesso as opções do excel

[osvaldomp]

Quanto à tecla Esc utlize os códigos abaixo e quanto à Barra de fórmulas verifique a configuração do seu Excel.

Código: Selecionar todos

Private Sub Workbook_Activate()
 Application.DisplayFullScreen = True
 Application.OnKey "{ESC}", ""
End Sub

Código: Selecionar todos

Private Sub Workbook_Deactivate()
 Application.DisplayFullScreen = False
 Application.OnKey "{ESC}"
End Sub