Deixa o Excel sem a Ribbon, Statusbar, Lista de planilhas, Barra de fórmulas e cabeçalhos de de linhas e colunas

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