Notifications
Clear all

Ocultar Ribbon sem Editar XML

8 Posts
4 Usuários
0 Reactions
6,200 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A dica é simples, fácil, porém pouco conhecida...

veja como ocultar o faixa de opções do excel sem editar diretamente as declaraçoes XML do CustomUI.xml

False para Ocultar

True para restaurar

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

teste na janela imediata

 
Postado : 29/04/2010 3:20 pm
 Eron
(@eron)
Posts: 103
Estimable Member Admin
 

Boa Adelson!

 
Postado : 23/09/2010 5:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Meu amigo Anderson...

Preciso saber como proceder isso no excel pois sei trabalhar nele mas não entendo nada de programação.

Abraço

 
Postado : 14/09/2011 2:21 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe pelo nome errado Adelson... sou meio desligado mesmo

Desde já agradeço.

 
Postado : 14/09/2011 2:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi Adelson, beleza?

Seguinte, essa linha de código para ocultar a ribbon mata o Ctrl+C

vc conhece alguma outra opção ?

Valeu

 
Postado : 29/08/2012 8:46 am
(@robertop)
Posts: 1
New Member
 

Adelso quando eu aplico este código ele oculta, porém se eu gravar o excel e abrir fica novamente visível.

Tem como ao abrir a planilha já esteja oculto?

 
Postado : 03/02/2013 12:40 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!
Use dentro de EstaPasta_de_Trabalho

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub
 
Postado : 03/02/2013 12:57 pm
(@ralf-jones)
Posts: 2
New Member
 

Valeu mesmo pela dica, simples fácil e funciona perfeitamente.
Obrigado

 
Postado : 24/05/2013 10:49 pm