Ocultar Barras de Ferramentas
Ocultar Barra de Ferramentas
Proteja sua planilha ocultando as ferramentas com o código em VBA abaixo.
Para executar o código, insira os botões de comandos na planilha.
Consulte o exemplo Incluir e Alterar cor do botão.
Baixar Exemplo
'Cole o código abaixo no módulo
Sub Exibir_faixa_de_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
Sub Ocultar_faixa_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Sub Ocultar_Barra_de_Formulas()
Application.DisplayFormulaBar = False
End Sub
Sub Exibir_Barra_de_Formulas()
Application.DisplayFormulaBar = True
End Sub
Sub Ocultar_Nome_das_Colunas()
ActiveWindow.DisplayHeadings = False
End Sub
Sub Exibir_Nome_das_Colunas()
ActiveWindow.DisplayHeadings = True
End Sub
Sub Ocultar_Linas_de_Grade()
ActiveWindow.DisplayGridlines = False
End Sub
Sub Exibir_Linas_de_Grade()
ActiveWindow.DisplayGridlines = True
End Sub
Sub Ocultar_Barras_Rolagem_Vertical()
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
Sub Exibir_Barras_Rolagem_Vertical()
ActiveWindow.DisplayVerticalScrollBar = True
End Sub
Sub Ocultar_Barras_Rolagem_Horizontal()
ActiveWindow.DisplayHorizontalScrollBar = False
End Sub
Sub Exibir_Barras_Rolagem_Horizontal()
ActiveWindow.DisplayHorizontalScrollBar = True
End Sub
Sub Ocultar_Pasta()
Sheets("Plan2").Visible = xlVeryHidden
End Sub
Sub Exibir_Pasta()
Sheets("Plan2").Visible = xlSheetVisible
End Sub
Sub ocultar_tabs()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub visualizar_tabs()
ActiveWindow.DisplayWorkbookTabs = True
End Sub