Ajuda com Ocultar pasta de trabalho

2024 - VBA & Macros

Post Recente por wfranca 11 anos atrás

3 Posts

2 Usuários

0 Reactions

907 Visualizações

RSS

wfranca

(@wfranca)

Posts: 297

Reputable Member

Topic starter

Pessoal, eu uso o seguinte código para ocultar a minha pasta de trabalho...

a intenção é de que fique visível somente o meu form.. até consigo esse resultado com sucesso, porém se eu tiver mais algum arquivo em excel aberto, ele oculta também, as vezes não da nem pra salvar o q estava fazendo...

anexei um arquivo de teste

Private Sub Workbook_Activate()
Application.Visible = False
frmLogon.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save
End If

End Sub

Private Sub UserForm_Terminate()
Application.Visible = True
ActiveWorkbook.Close
End Sub

teste.zip

Welington Gonçalves

Postado : 17/02/2014 6:43 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

wfranca,

Boa Noite!

Segue, no anexo, um exemplo de um arquivo que faz o que você está querendo: esconder um determinado arquivo, mantendo outros arquivos Excel abertos e funcionais (podendo trabalhar nos outros arquivos).

Para testar, abra primeiramente um arquivo qualquer e depois abra esse arquivo que estou lhe enviando. Assim que o abrir, ele vai checar se há outros arquivos abertos. Se tiver, ele vai esconder apenas o próprio arquivo (que está sendo aberto), mostrando um formulário do próprio arquivo e vai deixar os demais arquivos abertos e funcionando normalmente. Se não tiver, ele vai apenas esconder o próprio arquivo mostrando o formulário.

Arquivo Excel Invisível deixando outro arquivo Excel Visível.zip

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

Postado : 18/02/2014 3:34 pm