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
Postado : 17/02/2014 6:43 pm