Workbook_Deactivate or Activate

Private Sub Workbook_Deactivate()
'Application.DisplayFullScreen = True              'Activate
Application.DisplayFullScreen = False
End Sub