Boa tarde!!

Tente algo como:

Option Explicit
'Esse código deve ser inserido dentro do módulo de guia, na qual sofrerá efeito
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Application
        .CommandBars(1).Enabled = Not Sh.Name = "Plan1"            'Nome da guia no lugar de Plan1
        .CommandBars("Formatting").Enabled = Not Sh.Name = "Plan1" 'Nome da guia no lugar de Plan1
        .CommandBars("Standard").Enabled = Not Sh.Name = "Plan1"   'Nome da guia no lugar de Plan1
        .DisplayFormulaBar = Not Sh.Name = "Plan1"                 'Nome da guia no lugar de Plan1
    End With
    ActiveWindow.DisplayHeadings = Not Sh.Name = "Plan1"           'Nome da guia no lugar de Plan1
End Sub

Favor adaptar!

Arr

Boa tarde Alexandre,

Obrigado pela resposta, mas eu gostaria de saber se existe um meio de aplicar o código para todas as planilhas de uma vez.

É possível fazer isso?

Att, Carlos

Não entendi Carlos, pq qdo vc oculta os objetos, que vc citou de um arquivo isso vale para todas as abas do mesmo.

Boa tarde!!

Tente algo assim...ou similar

Private Sub Workbook_Activate()

    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True

End Sub
Private Sub Workbook_Deactivate()

    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    Application.ScreenUpdating = True

 End Sub

Veja:
http://www.rondebruin.nl/win/s2/win012.htm

Att

Alexandre,

Obrigado pela resposta, ajudou bastante, mas como utilizo macros para ocultar as planilhas e exibir somente uma de cada vez eu tive que adaptar o código para que ele fosse executado sempre que chamo uma nova planilha.

Também tive que adicionar mais duas linhas para remover os títulos e as linhas de grade, e tirei a linha que oculta o Ribbon pois eu personalizei ele e minhas macros estão todas no Ribbon.

Desta forma o código final ficou assim:

Sub Esconde()
    Application.ScreenUpdating = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True
End Sub

Aí eu chamo essa rotina nas macros que exibem as planilhas.