Excel 2003 e anteriores
Formatar / Planilha / Ocultar

Excel 2007 e anteriores
Formatar / Ocultar e Reexibir / Ocultar Planilha

Quando oculta as planilhas, as macros relacionada perde o vinculo?

Istou com um grande problema pois,
Fiz uma planilhas estilo menu principal!
O menu principal tem botoes com macros que foram feito manualmente,

Exemplo desse macro:
coloquei para gravar essa macro>cliquei em outra planilha, apontei a celula> e finalizei a macro,
Toda vez que eu clicar no botão(localizada na planilha MENU PRINCIPAL) ela direciona outra planilha!
bem até ai esta correto,
Mas, quando oculto as outras planilhas as macros de direcionamento da plan Menu não fuciona,
E estão dando esse erro," ERRO DE TEMPO DE EXECUÇÃO'1004'/O METADO SELECT DE CLASSE WORKSHEET FALHOU"!

Egiste solução para esse problema?

Grato

Vc pode ir no botao e editar as macros...

No começo da macro vc pode colocar
Worksheets("Plan1").Visible = True

e no final da macro
Worksheets("Plan1").Visible = False

obs: onde esta Plan1 coloque o nome da planilha oculta!!!

bom dia,

então a me explica melhor a onde vou colocar esse codigo!
abaixo esta codigo das macros:

Sub entrada()
'
' entrada Macro
' Macro gravada em 30/09/2010 por mprbraex
'

Sheets("Nova Entrada").Select
Range("C9").Select

End Sub
Sub acp1()
'
' acp1 Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Sheets("ACP").Select
Range("B2").Select

End Sub
Sub recebimento1()
'
' recebimento1 Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Sheets("Recebimento").Select
Range("B2").Select

End Sub
Sub aparte()
'
' aparte Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Sheets("A PARTE").Select
Range("B2").Select

End Sub

Sub menu()
'
' menu Macro
' Macro gravada em 30/09/2010 por mprbraex
'
'
Sheets("Menu").Select
End Sub
[/list:u:1nvh6ne3]
Ok da uma olhada!

 

Coloque na sua macro!!!

Sub entrada()
'
' entrada Macro
' Macro gravada em 30/09/2010 por mprbraex
'
Worksheets("Nova Entrada").Visible = True
Sheets("Nova Entrada").Select
Range("C9").Select

End Sub

Entao vc pode colocar um botao VOLTAR AO MENU (ou algo do tipo) na planilha Nova Entrada
E esse voltar pode ser + ou - assim

Sub menu()
Worksheets("Nova Entrada").Visible = False
Sheets("Menu").Select

End Sub

*Obs; se ainda nao der certo....abra um topico na seção de Macros!!!

Leo ,
muito obrigado, deu tudo certo!

bom dia,

Leonardo deu tudo certo mais,

vou dizer com esta as abas da minha planilha:

MENU/NOVA ENTRADA/ACP/Recebimento/A PARTE

na planilha Nova entrada, ela funciona assim,
digito os dados( ela esta como formulario de entrada de dados) e é enviado para as planilhas
(ACP/Recebimento/A PARTE)

Gostaria que ela fizesse o mesmo processo com as macros! com o topico anterior,

Pois quando estou tentendo enviar dados da erros por causa que as planilhas que estou tentando enviar estão ocultas...

como consigo isso?

as macros de envio estão assim!

Sub ACP()
'
' ACP Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Selection.Copy
Sheets("ACP").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ACP").Select
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("G9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ACP").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ACP").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ACP").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("M9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ACP").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Application.CutCopyMode = False
Range("C9").Select
End Sub
Sub Recebimento()
'
' Recebimento Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Selection.Copy
Sheets("Recebimento").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recebimento").Select
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("G9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recebimento").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recebimento").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recebimento").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("M9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recebimento").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
Range("B2").Select
Sheets("Nova Entrada").Select
Application.CutCopyMode = False
Range("C9").Select
End Sub
Sub PARTE()
'
' PARTE Macro
' Macro gravada em 30/09/2010 por mprbraex
'

'
Selection.Copy
Sheets("A PARTE").Select
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("G9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("H2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("M9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("I2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A PARTE").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("Nova Entrada").Select
Application.CutCopyMode = False
Range("C6").Select
End Sub

Mesma resposta q coloquei anteriormente...

No começo da macro vc pode colocar
Worksheets("Nova Entrada").Visible = True
e no final da macro
Worksheets("Nova Entrada").Visible = False

*Caso vc não conseguir, abra esse topico na seção MACROS

Cara,
você tentou fazer por hiperlink???? Se eu entendi bem você tem uma guia onde estão vinculadas atraves de macro todas as outras guias! Se for isso acho que você poderia usar o hiperlink mesmo, e ao inves de ocultar as guias você apenas não as deixaria visiveis!!

Ta ai a minha sugestão!!!
Abraços

Hugo Serra

Bom dia,

Entao Hugo, eu ja consigui fazer de outra forma, mais essa que voce falou eu não sabia!

Explica melhor?