MACRO PARA OCULTAR APENAS UMA WORKBOOK ESPECIFICA

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)

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)

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)

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)

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)

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