No seu código:

Sub Botão4_Clique()
Application.ScreenUpdating = False
Dim barras, nTela, Cont
On Error Resume Next

    For Each barras In Application.CommandBars
        barras.Enabled = False
    Next
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = False
Application.ScreenUpdating = True
End Sub

Sub Botão5_Clique()
Dim barras
On Error Resume Next
    For Each barras In Application.CommandBars
        barras.Enabled = True
    Next
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Apague as linhas que tem DisplayFullScreen.

Isso fará o Excel não entrar em modo de tela cheia, mas não vai garantir uma resolução específica !

No seu código:

Sub Botão4_Clique()
Application.ScreenUpdating = False
Dim barras, nTela, Cont
On Error Resume Next

    For Each barras In Application.CommandBars
        barras.Enabled = False
    Next
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = False
Application.ScreenUpdating = True
End Sub

Sub Botão5_Clique()
Dim barras
On Error Resume Next
    For Each barras In Application.CommandBars
        barras.Enabled = True
    Next
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Apague as linhas que tem DisplayFullScreen.

Isso fará o Excel não entrar em modo de tela cheia, mas não vai garantir uma resolução específica !

Fernando, se eu fizer isso quando clico em ocultar ele não esconde os menus.

Entendi.
É que seu código mexe nos menus do Excel 2003, e não na ribbon, se vc quer ocultar a ribbon, não é com esse for each barras não...

Desculpe havia até esquecido disso....

Tem que mexer na estrutura XML da ribbon, vc vai ter que baixar um programa chamado Custom UI Editor
E no XML do arquivo, escrever

startfromscratch=true

Desculpe, não entendo quase nada de VBA. Peguei esse código pronto aqui mesmo no fórum, você pode me auxilar em como fazer isso ?

- Procure no Google e baixe e instale um programa que chama Custom UI Editor
- faça uma cópia do seu arquivo, só por segurança
- use este programa para abrir seu arquivo
- No programinha, procure a opção Insert > Office 2010 Custom Part
- Na estrutura do arquivo, à esquerda, encontre o nome CustomUI14.xml e dê duplo clique
- na caixa branca do lado direito, cole:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
	<ribbon startFromScratch="true">

	</ribbon>
</customUI>

- Salve e feche. Pronto.

Esse programa é da Microsoft, não se preocupe com códigos maliciosos...