Notifications
Clear all

Userform visivel, Planilha invisivel

22 Posts
4 Usuários
0 Reactions
7,172 Visualizações
(@valoto)
Posts: 9
Active Member
Topic starter
 

Bom dia a todos

estou com uma duvida:

tenho uma pasta de trabalho no excel vamos colocar o nome de (mebros) com um userform, que deixa a planilha invisivel parecendo-se com um programa, e um botao no user que volta para a plan,MINHA DUVIDA É: tem alguma forma de deixar apenas a pasta de trabalho (mebros) usando esse procedimento de planilha invisivel? porque quando abro outra pasta de trabalho e ao clicar no botao de usar apenas o userform da primeira pasta as outras pastas tambem ficam invisivel,??

segue codigo da plan invisivel:

Sub Aplicativo_invisivel() 'DEIXAR SO USERFOR

Application.Visible = False
UserForm.Show
End Sub

Private Sub CmdSair_Click() 'SAIR DO USERFORM E VOLTAR A PLANILHA
Unload Me
Application.Visible = True
End Sub

 
Postado : 26/03/2013 7:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente especificar seu arquivo

Application.Windows("NomeArquivo.xls").Visible = False 

Leia:
http://msdn.microsoft.com/en-us/library ... 97786.aspx

Att

 
Postado : 26/03/2013 9:41 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Aí, Valoto.

Aprendi mais uma!

Obrigado mestre alexandre!

 
Postado : 26/03/2013 9:58 am
(@valoto)
Posts: 9
Active Member
Topic starter
 

Wagner, deu certo com você?

Alexandre, ttentei aqui e nao funcionou, mesmo assim valeu a ajuda, possa ser que eu que esteje fazendo algo errado por isso perguntei se com o Wagner funcionou.

abçs.

 
Postado : 26/03/2013 10:49 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Sim, Valoto.

Aqui deu certíssimo!

 
Postado : 26/03/2013 10:54 am
(@valoto)
Posts: 9
Active Member
Topic starter
 

pode me ajudar onde estou errando?

este codigo esta em modulo1

Sub Aplicativo_invisivel() 'DEIXAR SO USERFOR

Application.Windows("INF_DADOS_NACIONAL.xls").Visible = False
UserForm.Show
End Sub

Private Sub CmdSair_Click() 'SAIR DO USERFORM E VOLTAR A PLANILHA
Unload Me
Application.Visible = True
End Sub

 
Postado : 26/03/2013 11:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tenta assim:

Application.Windows(ThisWorkbook.Name).Visible = False

Qualquer coisa da o grito.
Abraço

 
Postado : 26/03/2013 11:38 am
(@valoto)
Posts: 9
Active Member
Topic starter
 

Bernardo,Wagner e Alexandre,

posso enviar minha planilha para qe seja analizada por voces e que me desse o caminho para ela funcionar?

 
Postado : 26/03/2013 12:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Valoto, leia as regras, os arquivos devem ser compactados!!
--------#--------#----------

Aí, Valoto.

Aprendi mais uma!

Obrigado mestre alexandre!

Até parece Wagner, quem me dera saber pelo menos uns 10% do que você, assim fico até feliz de ouvir isso, obrigado! ;)

Att

 
Postado : 26/03/2013 5:14 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

alexandre,

Obrigado, mas... na verdade, creio que estamos todos aprendendo. Sou apenas um curioso autodidata. O Valoro já colocado essa mesma demanda no fórum Info On Line e eu havia respondido que (do meu conhecimento) acreditava que isso não era possível. Assim, para mim, foi muito bom saber que é possível simn, pois já precisei outras vezes e nunca consegui fazer isso. Acaba sempre por desistir de tornar o objeto invisível pois só coseguia deixar o próprio Excel invisível, através do objeto Application.

Valoto,

Para exemplificar, estou te enviando, no arquivo anexo, dois arquivos Excel. Abra os dois e depois clique no botão que criei no aqruiva Pasta1.xlsm. Isso faz carregar um Userform com um botão para fechar o userform e reaparecer o arqujivo Pasta1.xlsm novamente.

 
Postado : 26/03/2013 6:37 pm
(@valoto)
Posts: 9
Active Member
Topic starter
 

bom dia,

obrigado ao mestres, mas ainda nao consegui fazer funcionar, mas vou tentando aqui.

acho que nao da mesmo para funcionar da maneira que eu preciso. Vou tentar adapitar da maneira que da para fazer.

Ah..segue a planilha "compactada", esqueci desse detalhe, para analize. lembrando que esta em fase de testes e nem todos os comando ainda estao nela, quero resolver primeiro este problema para dar continuidade ao projeto, se nao terei que mudar tudo.

abraços.

 
Postado : 27/03/2013 3:47 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Valoto,

Agora creio que está como você quer. Havia alguns erros de lógica de programação...

 
Postado : 27/03/2013 6:46 am
(@valoto)
Posts: 9
Active Member
Topic starter
 

Bom dia Wagner

testei e ocorreu alguns erros:
ao abrir a plan ja aparece o userfor, ATÉ AI É O QUE EU QUERO, agora ao clicar no botao "vvisualizar planilha" que se encontra no userform a mesma oculta as sheets e nao consigo mais retorna as sheets
outro erro: como as sheets ficaram ao preencher os textbox A,B,C,D... e ao clicar no botao MATRIZ ou ALVARENGA no qual esses sao comandos para preencher a Plan1 da erro, talves porque as mesmas estao ocultas,

 
Postado : 27/03/2013 7:14 am
(@valoto)
Posts: 9
Active Member
Topic starter
 

DEPOIS DE MUITA PESQUISA ENTENDI QUE REALMENTE NÃO É POSSIVEL FAZER COM QUE O VBA RODE COMO SE FOSSE UM PROGRAMA SEM AFETAR AS OUTRAS PASTAS DE TRABALHO, se eu abrir a pasta1(esta pasta está usando apenas o userform e planilha oculta, e um botao no user para voltar a plan e outro botao na plan para voltar ao user), nao posso abrir outras pastas porque o que realmente fica oculto é programa ecxel todo, e nao apenas uma determinada pasta,

 
Postado : 27/03/2013 7:42 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Valoto,

Espero que agora esteja OK.

Detalhe, não havia alterado seu código inicial. Apenas colocado algumas coisas no lugar correto.

 
Postado : 27/03/2013 8:12 am
Página 1 / 2