[Resolvido] Ocultar Abas em Excel 2003-2007

Boa noite

Venho aqui solicitar ajuda para ocultar Abas no Excel através de Código VBA.

Tenho uma Planilha com 10 Abas ( Folha 1 a Folha 10 ), na qual gostaria que ficassem sempre Ocultas.

Na Aba Menu, tenho Botões com as respectivas Macros para chamar as Folhas que quero.

Após clicar em determinado Botão, essa mesma Aba ( Folha ) deverá abrir e ficar visivel e depois após clicar no Botão Menu que se encontra dentro de cada Folha, volte a Aba ( Folha ) ficar novamente Oculta.

A Aba Menu, é para ficar Visivel

A Aba Conto, é para ficar Visivel

A Aba Folha 1, é para ficar Oculta
A Aba Folha 2, é para ficar Oculta
A Aba Folha 3, é para ficar Oculta
A Aba Folha 4, é para ficar Oculta
A Aba Folha 5, é para ficar Oculta
A Aba Folha 6, é para ficar Oculta
A Aba Folha 7, é para ficar Oculta
A Aba Folha 8, é para ficar Oculta
A Aba Folha 9, é para ficar Oculta
A Aba Folha 10, é para ficar Oculta

Não sei se me fiz explicar.

Segue planilha para melhor exmplo.
https://www.sendspace.com/file/qklqvf
https://www.sendspace.com/file/qklqvf


Obrigado desde já pela atenção

Cumps

Boa tarde,

Para ocultar a planilha (aba) ativa, utilize o seguinte código:

Código:

ActiveSheet.Visible = xlSheetVeryHidden

Ou este:

Código:

ActiveSheet.Visible = xlSheetHidden

A diferença é que utilizando o primeiro não é possível reexibir via Excel, somente via VBA.
Para tornar visível uma planilha (aba) de nome "Folha 1" utilize o seguinte código:

Código:

Sheets("Folha 1").Visible = True

Abraço

Boa noite

Peço desculpa pela maçada que estarei a dar, mas assim fico mais baralhado, pois não sei o que fazer.

É que eu preciso do código VBA para usar nas 10 Abas e preciso do código VBA para as fazer aparecer assim que eu clicar em qualquer botão existente na Aba Menu.

E preciso do código VBA para usar no botão existente em cada das 10 Abas para que assim que eu clique nele, volte à Aba Menu e volte a ocultar a Aba que tinha aberto antes.

Mas, quero agradecer na mesma sua ajuda.

Abraço

Em cada uma das planilhas o botão para ocultar pode se referir ao mesmo código:

Código:

Sub OcultarPlan()
    ActiveSheet.Visible = xlSheetHidden
    Sheets("Menu").Select
End Sub

Os 10 botões que reexibirão as planilhas podem ter o seguinte código:

Código:

Sub ExibirFolha1()
    Sheets("Folha 1").Visible = True
End Sub

É só copiar o código 9 vezes e alterar o nome da planilha para cada botão.

Abraço

Obrigado pela ajuda.

Abraço