Baixe o app para aproveitar ainda mais
Prévia do material em texto
Sub Modo_normal() 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 ActiveWindow.DisplayGridlines = True ActiveWindow.Zoom = 100 End Sub Sub Modo_apresentação() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.Zoom = 100 End Sub Sub Modo_normal() 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 ActiveWindow.DisplayGridlines = True ActiveWindow.Zoom = 100 End Sub Sub Modo_apresentação() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.Zoom = 100 End Sub Sub Modo_normal() 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 ActiveWindow.DisplayGridlines = True ActiveWindow.Zoom = 100 End Sub Sub Modo_apresentação() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.Zoom = 100 End Sub Sub Modo_normal() 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 ActiveWindow.DisplayGridlines = True ActiveWindow.Zoom = 100 End Sub Sub Modo_apresentação() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.Zoom = 100 End Sub Sub Modo_normal() 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 ActiveWindow.DisplayGridlines = True ActiveWindow.Zoom = 100 End Sub Sub Modo_apresentação() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.Zoom = 100 End Sub
Compartilhar