Olá...
Encontrei o código abaixo na net. Quando o executo, ele faz com que o excel oculte a sua barra de ferramentas. Acontece que, quando aperto esc, ela volta ao normal. Queria modificá-lo para que não volte ao clicar esc.
Sub Exibir_Barra_Ferramentas()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Sub Ocultar_Barra_Ferramentas()
Dim barras, nTela, Cont
On Error Resume Next
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
Application.DisplayStatusBar = False
End Sub
Postado : 27/07/2012 9:16 am