Fala galera, criei uma planilha e to tentando melhorar o aspecto dela, deixar mais próximo de um executável e ocultar algumas coisas do excel, a melhor maneira que consegui, foi encontrando um Sub na internet, que tem essa forma:
Sub lsLigarTelaCheia()
'Oculta todas as guias de menu
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
'Ocultar barra de fórmulas
Application.DisplayFormulaBar = False
'Ocultar barra de status, disposta ao final da planilha
Application.DisplayStatusBar = False
'Alterar o nome do Excel
Application.Caption = "Brasilux"
With ActiveWindow
'Ocultar barra horizontal
.DisplayHorizontalScrollBar = False
'Ocultar barra vertical
.DisplayVerticalScrollBar = False
'Ocultar guias das planilhas
.DisplayWorkbookTabs = False
'Oculta os títulos de linha e coluna
.DisplayHeadings = False
'Oculta valores zero na planilha
'.DisplayZeros = False
'Oculta as linhas de grade da planilha
.DisplayGridlines = False
End With
End Sub
E a parte de
With ActiveWindow
'Ocultar barra horizontal
.DisplayHorizontalScrollBar = False
'Ocultar barra vertical
.DisplayVerticalScrollBar = False
'Ocultar guias das planilhas
.DisplayWorkbookTabs = False
'Oculta os títulos de linha e coluna
.DisplayHeadings = False
'Oculta valores zero na planilha
'.DisplayZeros = False
'Oculta as linhas de grade da planilha
.DisplayGridlines = False
End With
Só deixa esses elementos ocultos na planilha em que estou, o que eu preciso mudar pra poder ocultar as barras, guias e títulos de todas as abas de planilhas do arquivo?
Obrigado.
Postado : 29/08/2017 8:39 pm