Se eu entendi provavelmente isso resolve seu problema.
Cole esses dois codigos em Esta Pasta de Trabalho
Private Sub Workbook_Activate()
Application.Visible = False
End Sub
Private Sub Workbook_Deactivate()
Application.Visible = True
End Sub
Postado : 05/04/2016 4:17 pm