Skip to content

Instantly share code, notes, and snippets.

@natanael-b

natanael-b/Excel2AppLike.vb

Last active September 23, 2022 13:11
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save natanael-b/ce19afe1b03af7ac3965722cf1550749 to your computer and use it in GitHub Desktop.
Save natanael-b/ce19afe1b03af7ac3965722cf1550749 to your computer and use it in GitHub Desktop.
Download ZIP
Deixa o Excel sem a Ribbon, Statusbar, Lista de planilhas, Barra de fórmulas e cabeçalhos de de linhas e colunas
Raw
Excel2AppLike.vb
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