Excel Macro Application. Display Full Screen

[LucasExcel]

Boa noite, porque quando eu uso a macro abaixo a Application.DisplayFullScreen acontece em todas as planilhas? Tem como alterar isso?

Por exemplo se a planilha "Compras" e a planilha "Vendas" estiverem abertas e eu utilizar a macro ambas ficam com DisplayFullScreen.

 

 

Private Sub LigarTelaCheia()

           Application.DisplayFullScreen = True
   Application.Caption = "Compras"
End Sub

[Visitante]

8 horas atrás, LucasExcel disse:

Por exemplo se a planilha os arquivos "Compras" e a planilha "Vendas" ..

 

Instale uma cópia do código abaixo no módulo EstaPastaDeTrabalho do arquivo de interesse.

 

Private Sub Workbook_Deactivate()
 Application.DisplayFullScreen = False
End Sub

 

[LucasExcel]

Obrigado, atendeu perfeitamente.