Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
OCULTAR GUIAS, FAIX...
 
Notifications
Clear all

OCULTAR GUIAS, FAIXAS E BOTÕES.

 
2024 - VBA & Macros
Post Recente por marco acv 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,207 Visualizações
RSS
 marco acv
(@marco-acv)
Posts: 142
Estimable Member
Topic starter
 

Prezados, boa tarde!

Por favor, alguém sabe como faço para ocultar faixas, guias e botões no excel?

Eu pretendo ocultar todas essas opções (deixar apenas os botões de fechar, minimizar e maximizar).

Alguém sabe como faço isso?

Atenciosamente,
Marco

 
Postado : 20/03/2017 10:42 am
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Tente isso

Sub ocultar()
Application.DisplayFullScreen = True
End Sub

para voltar ao normal, coloque 

Sub ocultar1()
Application.DisplayFullScreen = False
End Sub

Se isso te ajudou, clique no "joinha" ao lado de citar

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 20/03/2017 11:25 am
 Romanha
(@romanha)
Posts: 104
Estimable Member
 

boa tarde! Marco.

Tenha este comando

ActiveWindow.Visible = False

Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

 
Postado : 21/03/2017 9:09 am
 marco acv
(@marco-acv)
Posts: 142
Estimable Member
Topic starter
 

Olá, bom dia!

tudo bem com você?

Certo, eu tentar utilizar esse comando.

:D :D
Atenciosamente,
Marco

 
Postado : 24/03/2017 4:59 am
 marco acv
(@marco-acv)
Posts: 142
Estimable Member
Topic starter
 

Muito obrigado pela atenção e tempo disponibilizado.

Atenciosamente,
Marco

 
Postado : 24/03/2017 5:22 am
 marco acv
(@marco-acv)
Posts: 142
Estimable Member
Topic starter
 

Eu consegui localizar uma macro na internet.

Macro:

Sub sbx_repor_faixa_de_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
[d11].Value = "Faixa de Opções (Menus) I-N-S-E-R-I-D-A-"
End Sub

Sub sbx_retirar_faixa_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
[d11].Value = "Faixa de Opções (Menus) - R-E-T-I-R-A-D-A-"
End Sub

Seguem os códigos.

Atenciosamente,
Marco

 
Postado : 24/03/2017 5:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico