Ocultando e reexibindo barras de ferramentas do Excel

Abra o excel, entre no editor de VBA , alt+f11, insira um módulo e copie o
código abaixo;

Sub Ocultar()
Dim barras
For Each barras In Application.CommandBars

barras.Enabled = False

Next
Application.DisplayFullScreen
= True
ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWindow.DisplayWorkbookTabs = False


End Sub

Sub Reexibir()
Dim barras
Application.EnableCancelKey =
xlDisabled
On Error Resume Next
For Each barras In
Application.CommandBars

barras.Enabled = True
Next

Application.DisplayFormulaBar = True

Application.DisplayFullScreen = False

ActiveWindow.DisplayHeadings = True

ActiveWindow.DisplayHorizontalScrollBar = True

ActiveWindow.DisplayVerticalScrollBar = True

ActiveWindow.DisplayWorkbookTabs = True


End Sub

** Obs. Este código de ocultar as barras pode ser colocado também em
EstaPasta_de_trabalho para que quando inicializado seu arquivo de excel o mesmo
já oculte as barras.**