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
Bom dia!!
Tente especificar seu arquivo
Application.Windows("NomeArquivo.xls").Visible = False
Leia:
http://msdn.microsoft.com/en-us/library ... 97786.aspx
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Aí, Valoto.
Aprendi mais uma!
Obrigado mestre alexandre!
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
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.
Sim, Valoto.
Aqui deu certíssimo!
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
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
Tenta assim:
Application.Windows(ThisWorkbook.Name).Visible = False
Qualquer coisa da o grito.
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Bernardo,Wagner e Alexandre,
posso enviar minha planilha para qe seja analizada por voces e que me desse o caminho para ela funcionar?
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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.
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
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.
Valoto,
Agora creio que está como você quer. Havia alguns erros de lógica de programação...
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
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,
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,
Valoto,
Espero que agora esteja OK.
Detalhe, não havia alterado seu código inicial. Apenas colocado algumas coisas no lugar correto.
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