Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#51795
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.
Você não está autorizado a ver ou baixar esse anexo.
#51797
substitua:

Private Sub Workbook_Open() por Private Sub Workbook_Activate()

e

Private Sub Workbook_BeforeClose(Cancel As Boolean) por Private Sub Workbook_Deactivate()
#51798
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
#51800
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord