Notifications
Clear all

Ocultar planilha ativa e retornar para o menu

8 Posts
2 Usuários
0 Reactions
1,688 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde pessoal!

Tenho uma pasta com nove planilhas, sendo uma delas uma planilha de menu com botões que dão acesso às outras.
às vezes fecho a pasta com uma planilhas, que não a do menu, ativa.
Meus conhecimentos de macros são poucos. Uso mais o gravador de macros.

Que código posso utilizar para ocultar a planilha que está ativa e exibir a planilha de menu.

obs: o ActiveSheet.Visible = False não funcionou no excel 2010.

Muito obrigado!

Silvio Felinto

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 9:12 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

SILVIOFELINTO,

Boa Tarde!

Envie sua planilha.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 10/10/2013 9:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não tenho certeza de haver entendido a demanda, mas vamos tentar:

ActiveSheet.Visible = False não funcionou no excel 2010

Até onde sei funciona normalmente no 2010 e anteriores, porem no minimo uma planilha do arquivo deve estar visivel.

Sub nav()
ActiveSheet.Visible = False
Sheets("Plan1").Visible = True
 Sheets("Plan1").Select
End Sub

às vezes fecho a pasta com uma planilhas, que não a do menu, ativa.

Para que "sempre" ao abrir o arquivo tenha sómente a planilha Menu visivel pode utilizar algo como:
'Ao fechar o arquivo, esconde" todas as planilhas cujo nome seja diferente de "Menu"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Menu").Visible = True
        For Each ws In Worksheets
        If ws.Name <> "Menu" And ws.Visible = True Then
        ws.Visible = False
        End If
        Next
Application.ScreenUpdating = True
End Sub

Se não for isso, por favor fornece mais detalhes

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 9:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Reinaldo!

O que eu desejo é que quando abrir o arquivo, seja exibida apenas a planilha de menu de botões "EXIBIR_PLANILHAS".
Como disse, às vezes fecho o arquivo com outra planilha estando visivel.

Posso colocar o último código em "Esta pasta de Trabalho" do VBAProject do jeito que está, com o nome da minha planilha de menus, e ele vai funcionar automaticamente quando abrir o arquivo?

Grato

Silvio Felinto

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 10:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A unica questão é o nome da planilha menu, as demais independem do nome.
Como está no evento before close, ao fechar o arquivo, são ocultadas todas as sheets cujo nome é diferente de "Menu", ao ser aberto somente essa estará visivel (pelo menos e o que faz em um arquivo que utilizo)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 10:53 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo,

Testei algumas vezes o último código que você postou.
Ceu certo na maioria da vezes que abri o arquivo.
Duas vezes apareceu a barra no excel para "Habilitar conteúdo" com uma planilha ativa que não a que contém os botões para exibição das outras planilhas.
Cliquei em habilitar conteúdo e voltou para a planilha de botões.

Silvio Felinto

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 12:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Somente vendo o arquivo para poder tentar entender o que acontece, somente pela descrição diria que não é possivel entender

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2013 2:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Reinaldo!

O Problema era com outra macro.
Já resolvi.

Mais uma vez muito obrigado.

Silvio Felinto

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/10/2013 10:32 am