Boa noite willramires,

Seria isso que vc está buscando?

https://www.guiadoexcel.com.br/abrir-o-excel-em-tela-cheia-ocultar-barras-guias-e-ferramentas/

Att, Televisaos

Acho que o site anterior não cobre exatamente a sua pergunta, mas esses comandos sim:

ActiveWindow.Caption = ""
Application.Caption = " "

Att Televisaos

Boa noite @willramires,

Tem como mudar o ícone sim mas pelo jeito é mais complexo. Encontrei o código em um site, testei e funcionou. Segue o código:

Private Declare PtrSafe Function SendMessageA Lib "user32" _
      (ByVal HWnd As LongPtr, _
      ByVal wMsg As LongPtr, _
      ByVal wParam As LongPtr, _
      ByVal lParam As LongPtr) As LongPtr

Private Declare PtrSafe Function ExtractIconA Lib "shell32.dll" _
      (ByVal hInst As LongPtr, _
      ByVal lpszExeFileName As String, _
      ByVal nIconIndex As LongPtr) As Long

Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Private Const WM_SETICON = &H80
Sub SetIcon(FileName As String, Optional Index As Long = 0)

Dim HWnd As LongPtr
Dim HIcon As LongPtr
Dim N As Long
    Dim S As String
    If Dir(FileName, vbNormal) = vbNullString Then
        ' arquivo não encontrado, encerra a macro
        Exit Sub
    End If
    ' armazena a extensão do arquivo.
    N = InStrRev(FileName, ".")
    S = LCase(Mid(FileName, N + 1))
    ' Assegure-se de ter um tipo válido de arquivo (.exe, .ico, .dll)
    Select Case S
        Case "exe", "ico", "dll"
            ' OK
        Case Else
            ' tipo de arquivo inválido
            Err.Raise 5
    End Select
    HWnd = Application.HWnd
    If HWnd = 0 Then
        Exit Sub
    End If
    HIcon = ExtractIconA(0, FileName, Index)
    If HIcon <> 0 Then
        SendMessageA HWnd, WM_SETICON, ICON_SMALL, HIcon
    End If
End Sub
Sub muda_ícone()
SetIcon "digite aqui o caminho do arquivo", 0
End Sub

Fonte: http://www.cpearson.com/excel/SetIcon.aspx

Att, Televisaos

Para retornar com o ícone ao normal:

Sub restaura_ícone()
Dim FName As String
FName = Application.Path & "\excel.exe"
SetIcon FileName:=FName, Index:=0
End Sub

@televisaos amigão, vou testar o código. Bem interessante. Lhe digo algo se tiver alguma dúvida!

Postado por: @televisaos

Boa noite @willramires,

Tem como mudar o ícone sim mas pelo jeito é mais complexo. Encontrei o código em um site, testei e funcionou. Segue o código:

Private Declare PtrSafe Function SendMessageA Lib "user32" _
      (ByVal HWnd As LongPtr, _
      ByVal wMsg As LongPtr, _
      ByVal wParam As LongPtr, _
      ByVal lParam As LongPtr) As LongPtr

Private Declare PtrSafe Function ExtractIconA Lib "shell32.dll" _
      (ByVal hInst As LongPtr, _
      ByVal lpszExeFileName As String, _
      ByVal nIconIndex As LongPtr) As Long

Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Private Const WM_SETICON = &H80
Sub SetIcon(FileName As String, Optional Index As Long = 0)

Dim HWnd As LongPtr
Dim HIcon As LongPtr
Dim N As Long
    Dim S As String
    If Dir(FileName, vbNormal) = vbNullString Then
        ' arquivo não encontrado, encerra a macro
        Exit Sub
    End If
    ' armazena a extensão do arquivo.
    N = InStrRev(FileName, ".")
    S = LCase(Mid(FileName, N + 1))
    ' Assegure-se de ter um tipo válido de arquivo (.exe, .ico, .dll)
    Select Case S
        Case "exe", "ico", "dll"
            ' OK
        Case Else
            ' tipo de arquivo inválido
            Err.Raise 5
    End Select
    HWnd = Application.HWnd
    If HWnd = 0 Then
        Exit Sub
    End If
    HIcon = ExtractIconA(0, FileName, Index)
    If HIcon <> 0 Then
        SendMessageA HWnd, WM_SETICON, ICON_SMALL, HIcon
    End If
End Sub
Sub muda_ícone()
SetIcon "digite aqui o caminho do arquivo", 0
End Sub

Fonte: http://www.cpearson.com/excel/SetIcon.aspx

Att, Televisaos

Amigo Televisaos, funcionou perfeitamente e pude evoluir ainda mais o que eu queria com o código. Voce merece 10. Muito obrigado!!!