vpeglow,

Bom dia!

Assim:

Sub TirarGuias()
    ' TirarGuias Macro
    ' Macro criada por Wagner Morel para Retiras as Guias do Arquivo
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub MostrarGuias()
    ' MostrarGuias Macro
    ' Macro Gravada por Wagner Morel para Reexibir as Guias do arquivo
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Boa tarde Wagner.

Funcionou, ma na verdade eu gostaria de ocultar tudo quando abri-se uma planilha em especifico, deixando apenas realmente a tabela. tem como ser feito isso?

Apenas um pequeno acréscimo ao código postado pelo nosso grande colega Wagner:
Ela aplica a ação de ocultar as abas apenas a planilha ativa se o nome for a que você descriminar no código, sem influenciar diretamente as outras, mas o mesmo só irá funcionar na planilha que você selecionar para tal

Sub TirarGuias()
    ' TirarGuias Macro
    ' Macro criada por Wagner Morel para Retiras as Guias do Arquivo
    If ThisWorkbook.Name = "Pasta1.xls" Then
    ActiveWindow.DisplayWorkbookTabs = False
    End If
End Sub
Sub MostrarGuias()
    ' MostrarGuias Macro
    ' Macro Gravada por Wagner Morel para Reexibir as Guias do arquivo
    If ThisWorkbook.Name = "Pasta1.xls" Then
    ActiveWindow.DisplayWorkbookTabs = True
    End If
End Sub

e se quiser que uma determina sheet fique ativa na tela após executar o código, é só seta-la ao termino da execução, acrescentando " Sheets("Import").Select"

Boa tare Selmo...

esse código ocultou a mesma coisa que o do Wagner.

não entendi ao certo oque deseja, você quer ocultar as guias de acordo com a sua vontade, deixando exposta apenas aquela que for do seu interesse?
se este for o caso, basta você definir as planilhas que você deseja ocultar, é só utilizar esse código:

Sub esconder()
'"xlSheetHidden ou 0 "Oculta a sheet, mais ainda é possivel exibi-la através do menu das guias
'"xlSheetVeryHidden ou 2" oculta a nivel de programação, sendo possivel voltar a exibir somente através do ambiente VBA
'"xlSheetVisible ou -1" torna visivel novamente no menu de sheets

Sheets("Plan1").Visible = 0 'ou
Sheets("Plan1").Visible = xlSheetHidden
End Sub