Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Ocultar workbook e abrir plans somente ao solicitar

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Ocultar workbook e abrir plans somente ao solicitar   Sex Out 26, 2012 12:44 am

olá amigos!

Estou tentando fazer um programa simples, contendo userforme1(login), userforme2(formulario para inserir informação) e tenho plan1(banco de dados), plan2(relatorio), plan3(graficos).

o meu problema é que eu preciso ocultar a planilha e fazer aparecer so userfome1(login), depois o formulario, até ai tudo bem.

só que ao ocultar o workbook
private sub workbook_open()

application.visible = false
userforme1.show

end sub
depois do processo até entrar no formulario userforme2 eu crie um commadboton5
e ai a questão da minha duvida, como eu faço para que este commandboton5 abra a plan1 (banco de dados) e feche o formulario. uma vez que de inicio eu ocultei o workbook
tem como fazer isso?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Ocultar workbook e abrir plans somente ao solicitar   Sex Out 26, 2012 1:03 pm

Olá Hamilton.
Use este código:
Unload me
Application.Visible = True

Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 5:06 am



Olá, obrigado por responder

não deu certo com este comando!

entendendo melhor o meu sistema

ao iniciar, a planilha fica oculta, abre a tela de login,digita a senha, iniciar tela principal (planilha continua oculta) e na tela principal eu gostaria de abrir apenas uma das varias plans da planilha, fiz um botão responsável para chamar a plan mas, não consigo encontrar um comando para isso,

Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 6:03 am

Olá Hamilton.
Use este código:
Unload me
Worksheets("Nome Da Planilha").Visible = True

Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 4:10 pm

Bom dia!
Mcjota, inseri este comando e ocorreu o seguinte, fechou o useform mas não abriu a plnanilha.

desde de já agradeço por sua atenção!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 5:32 pm

Olá Hamilton, bom dia!
Com o comando "Application.Visible = False" você está ocultando a aplicação "Excel" más não as planilhas!
No botão insira:
Private Sub CommandButton5_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Nome Da Planilha Que Quer Exibir" Then
ws.Visible = xlVeryHidden
End If
Next ws
Unload Me
Application.Visible = True
End Sub

Lembrando que ao fechar a planilha deverá deixar a planilha "Vazia" visível novamente

Tenta ai...
Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 7:11 pm

Mcjota,
Esta dando erro de depuração nesta parte do comando

ws.Visible = xlVeryHidden
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 7:19 pm

private sub workbook_open()
application.visible = false
userform1.show

end sub
-------------------------------------------------
private sub commandbutton1_click()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "plan3" Then
ws.Visible = xlVeryHidden
End If
Next ws
Unload Me
Application.Visible = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 7:35 pm

tenta substituir por:
ws.Visible = False
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 8:06 pm

Da o mesmo erro!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 8:42 pm

Caro Hamilton, testei em um form aqui e deu certinho.
Ao clicar no botão, o form fecha abrindo o excel somente com a planilha escolhida visível!
Manda sua planilha para meu email:
jotaPONTOsidneyARROBAhotmailPONTOcom
Quem sabe fica mais perceptível o erro.

Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 9:08 pm

Hamilton meu caro, o problema está no nome da planilha.
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "plan3" Then
ws.Visible = xlVeryHidden
End If
Next ws
Unload Me
Application.Visible = True
End Sub

Teria que ser assim "Plan3" com "P" maiúsculo!

Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 9:20 pm

Mcjota, é isso ai rodou do jeitinho que eu tava precisando.
Amigo fico muito grato por sua ajuda
fico devendo uma!

parabéns pelo seu trabalha sucesso!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 10:10 pm

Olá, peço desculpas se estou sendo inconveniente mas Teria um comando que ao invés de selecionar uma planilha e apagar as outras
so selecione uma determinada planilha sem apagar as outras pois neste comando ela seleciona uma planilha desejada mas depois
quando eu crio uma situação para chamar outra planilha não é possível.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Plan3" Then
ws.Visible = xlVeryHidden

End If
Next ws
Unload Me
Application.Visible = True

End Sub

----------------------------------------------------
deixei assim


Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Plan3" Then
ws.Visible = true

End If
Next ws
Unload Me
Application.Visible = True

End Sub

ela não apaga as planilhas mas também não seleciona a planilha que eu quero.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Sab Out 27, 2012 10:44 pm

Não tem inconveniente nenhum, afinal estamos aí pra isto mesmo!
O código para re-exibir as planilhas é este:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

Adapte aí e veja como fica.

Abraço....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hamilton01



Mensagens : 12
Data de inscrição : 26/10/2012

MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Qui Nov 15, 2012 5:48 pm

ok
Obrigado!
Problema resolvido
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Hoje à(s) 5:16 am

Voltar ao Topo Ir em baixo
 
Ocultar workbook e abrir plans somente ao solicitar
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ocultar o Fechar tags
» Como ocultar sub-fóruns para visitantes e deixar somente a home page ?
» Abrir o navegador em uma página da internet
» [Resolvido] Abrir arquivos e automaticamente executar função nele
» Energia somente passar [Pergunta]

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: