TG Telegram Group & Channel
📊 Tudo com Excel | United States America (US)
Create: Update:

Macro para colocar a planilha em tela cheia e tela normal:

Sub Apresentar_on()
Application.ExecuteExcel4Macro "SHOW.Toolbar(""Ribbon"", False)" 'Oculta todas as guias de menu
Application.DisplayFormulaBar = False 'Ocultar barra de fórmulas
Application.DisplayStatusBar = False 'Ocultar barra de status, disposta ao final da planilha

With ActiveWindow
.DisplayWorkbookTabs = False 'Ocultar guias das planilhas
.DisplayHeadings = False 'Oculta os títulos de linha e coluna
End With

End Sub

Sub Apresentar_off()
Application.ExecuteExcel4Macro "SHOW.Toolbar(""Ribbon"", True)" 'Reexibir todas as guias de menu
Application.DisplayFormulaBar = True 'Reexibir barra de fórmulas
Application.DisplayStatusBar = True 'Reexibir barra de status, disposta ao final da planilha

With ActiveWindow
.DisplayWorkbookTabs = True 'Reexibir guias das planilhas
End With

End Sub

Macro para colocar a planilha em tela cheia e tela normal:

Sub Apresentar_on()
Application.ExecuteExcel4Macro "SHOW.Toolbar(""Ribbon"", False)" 'Oculta todas as guias de menu
Application.DisplayFormulaBar = False 'Ocultar barra de fórmulas
Application.DisplayStatusBar = False 'Ocultar barra de status, disposta ao final da planilha

With ActiveWindow
.DisplayWorkbookTabs = False 'Ocultar guias das planilhas
.DisplayHeadings = False 'Oculta os títulos de linha e coluna
End With

End Sub

Sub Apresentar_off()
Application.ExecuteExcel4Macro "SHOW.Toolbar(""Ribbon"", True)" 'Reexibir todas as guias de menu
Application.DisplayFormulaBar = True 'Reexibir barra de fórmulas
Application.DisplayStatusBar = True 'Reexibir barra de status, disposta ao final da planilha

With ActiveWindow
.DisplayWorkbookTabs = True 'Reexibir guias das planilhas
End With

End Sub


>>Click here to continue<<

📊 Tudo com Excel




Share with your best friend
VIEW MORE

United States America Popular Telegram Group (US)