| Ocultar workbook e abrir plans somente ao solicitar | |
|
|
Autor | Mensagem |
---|
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: 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? | |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: 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.... | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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,
| |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb Out 27, 2012 6:03 am | |
| Olá Hamilton. Use este código: Unload me Worksheets("Nome Da Planilha").Visible = True
Abraço.... | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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! | |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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.... | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb Out 27, 2012 7:11 pm | |
| Mcjota, Esta dando erro de depuração nesta parte do comando
ws.Visible = xlVeryHidden
| |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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 | |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb Out 27, 2012 7:35 pm | |
| tenta substituir por: ws.Visible = False
| |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb Out 27, 2012 8:06 pm | |
| | |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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.... | |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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.... | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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! | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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.
| |
|
| |
McJota
Mensagens : 16 Data de inscrição : 26/10/2012 Idade : 48
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Sáb 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.... | |
|
| |
hamilton01
Mensagens : 12 Data de inscrição : 26/10/2012
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar Qui Nov 15, 2012 5:48 pm | |
| ok Obrigado! Problema resolvido | |
|
| |
Conteúdo patrocinado
| Assunto: Re: Ocultar workbook e abrir plans somente ao solicitar | |
| |
|
| |
| Ocultar workbook e abrir plans somente ao solicitar | |
|