Skip to content

Instantly share code, notes, and snippets.

Last active September 23, 2022 13:11
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
Deixa o Excel sem a Ribbon, Statusbar, Lista de planilhas, Barra de fórmulas e cabeçalhos de de linhas e colunas
Private Sub Workbook_Open()
ActiveWindow.Caption = ""
Application.Caption = "Título da janela"
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
' Dimensões da janela
ActiveWindow.Height = 600
ActiveWindow.Width = 800
' Desativa as barras de rolagem
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment