Notifications
Clear all

Ocultar barras do excel

3 Posts
2 Usuários
0 Reactions
1,600 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Boa tarde Pessoal

Pesquisei no banco de dados do Planilhando mas não encontrei..

Uso esse código para ocultar as minhas barras no excel... só não consegui fazer com que ele oculte somente o meu arquivo e não todos os arquivos em exel.

existe essa possibilidade?

Sub TelaCheia_On()
    'Oculta todos os Menus (Ribbons)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayZeros = False
        .DisplayHeadings = False
        .DisplayGridlines = False
    End With
    
End Sub

Sub TelaCheia_Off()
    'Exibe todos os Menus (Ribbons)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayZeros = True
        .DisplayHeadings = True
        .DisplayGridlines = True
    End With
    
    End Sub

Welington Gonçalves

 
Postado : 30/03/2015 2:42 pm
(@miguel-70)
Posts: 207
Estimable Member
 

Este programa cria um menu personalizado Custom UI Editor For Microsoft Office
Segue em anexo um modelo

 
Postado : 31/03/2015 1:02 pm
(@miguel-70)
Posts: 207
Estimable Member
 

Esta pasta de trabalho cole;

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
 
Postado : 31/03/2015 2:03 pm