Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA OCULTAR ...
 
Notifications
Clear all

MACRO PARA OCULTAR APENAS UMA WORKBOOK ESPECIFICA

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por JNEXCEL 6 anos atrás
17 Posts
3 Usuários
0 Reactions
3,288 Visualizações
RSS
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Amigos, boa tarde!
Tenho uma "planilha X" que quando é aberta chama uma form e oculta a "planilha X" deixando só o form a vista, conforme código abaixo:

Private Sub Workbook_Open()
Form_PB_GERENCIAL.Show
Application.Visible = False
End Sub

O problema é que, se tiver outras workbooks abertas, oculta tudo e eu só quero que oculte a "planilha X".
Já fiz varias pesquisas e não consigo achar a solução para esse problema.

Alguém sabe se isso é possível?

 
Postado : 23/05/2018 9:33 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Vamos supor que seu arquivo se chame : Exemplo.xlsm

Então no lugar de:

Application.Visible = False

Tente:

Application.Windows("Exemplo.xlsm").Visible = False

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/05/2018 10:02 am
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Eu já tinha achado essa opção, o problema é que a moldura do excel permanece, preciso que oculte tudo, como em um sistema, é possível?

 
Postado : 23/05/2018 11:38 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Descupe nao consegui visualizar isso que você disse. Quando eu executo so fica a Userform. A moldura que aparece junto com os outros elementos na minha versão, é das outras workbooks abertas e não da que eu referenciei no código.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/05/2018 11:58 am
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Aparece assim conforme imagem.
Mantem a moldura do excel, com o fundo cinza

 
Postado : 23/05/2018 1:28 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Seria possivel enviar esse seu arquivo?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/05/2018 1:30 pm
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Segue

https://www.dropbox.com/s/sczdn7iu82h2g ... .xlsm?dl=0

 
Postado : 23/05/2018 1:41 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Desculpe tá corrido aqui. Aqui no serviço não abre dropbox. Tem como postar link no googledrive?

Ou então chegando em casa vejo pra vc..

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/05/2018 3:19 pm
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

xlarruda, bom dia!
Segue link do OneDrive para ver se consegue baixar.

https://apaesalvador-my.sharepoint.com/ ... 1&e=kvGYfM

 
Postado : 24/05/2018 5:05 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Desculpe pra mim apareceu isso no segundo link:

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 24/05/2018 10:21 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
 

Boa tarde!

Eu estou enviando um exemplo.

Seria isso que você precisa?

Atenciosamente,
JNEXCEL

 
Postado : 24/05/2018 12:18 pm
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

Bom dia, JNEXCEL!
O que preciso é ocultar a Workbook que estou abrindo sem ocultar as outras Workbooks que estiverem abertas, não as plan's.

Segue link para baixar o arquivo e vc dar uma olhada pra ver se me ajuda a resolver esse dilema, rsss
https://www.dropbox.com/s/sczdn7iu82h2g ... .xlsm?dl=0

 
Postado : 25/05/2018 6:53 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
 

Olá, eu estou fazendo teste aqui

e um deles está no vídeo (só clicar no link abaixo e baixar) tem apenas 7 segundos

você poderia dar um retorno e me informar se é isso que precisa?

obrigado

link do vídeo:

https://www.dropbox.com/s/mqx9r0pbnff0w ... 1.wmv?dl=0

 
Postado : 29/05/2018 1:53 pm
 ROMELVSR
(@romelvsr)
Posts: 39
Eminent Member
Topic starter
 

JNEXCEL, bom dia!
Meu amigo, é exatamente isso que preciso.

Vc disponibiliza o código para eu testar, por favor?

 
Postado : 30/05/2018 6:05 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
 

aqui eu usei apenas esses códigos para rodar a planilha teste.

Private Sub Workbook_Activate()
Application.Windows("teste.xlsm").Visible = False
End Sub
Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.DisplayAlerts = False
Application.Windows("teste.xlsm").Close
End Sub
 
Postado : 30/05/2018 10:10 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico