Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Ocultar workbook e abrir plans somente ao solicitar

Ir para baixo 
2 participantes
AutorMensagem
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySex 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?
Ir para o topo Ir para baixo
McJota




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

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

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

Abraço....
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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,

Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySáb Out 27, 2012 6:03 am

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

Abraço....
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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!
Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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....
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySáb Out 27, 2012 7:11 pm

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

ws.Visible = xlVeryHidden
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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
Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySáb Out 27, 2012 7:35 pm

tenta substituir por:
ws.Visible = False
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySáb Out 27, 2012 8:06 pm

Da o mesmo erro!
Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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....
Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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....
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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!
Ir para o topo Ir para baixo
hamilton01




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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.
Ir para o topo Ir para baixo
McJota




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

Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar EmptySá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....
Ir para o topo Ir para baixo
hamilton01




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

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

ok
Obrigado!
Problema resolvido
Ir para o topo Ir para baixo
Conteúdo patrocinado





Ocultar workbook e abrir plans  somente ao solicitar Empty
MensagemAssunto: Re: Ocultar workbook e abrir plans somente ao solicitar   Ocultar workbook e abrir plans  somente ao solicitar Empty

Ir para o topo Ir para baixo
 
Ocultar workbook e abrir plans somente ao solicitar
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Ocultar fórmulas sem ser pela opção de proteger com senha
» PROCV RETORNANDO SOMENTE A FORMULA QUE SE ENCONTRA NA PROCURA DESEJADA
» Buscar dados em outro WorkBook
» Ocultar excel
» Ocultar "LINHA" com determinado valor.

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: