Const PleinEcran$ = "Feuil1,Feuil3,Feuil5" 'CodeNames des feuilles en plein écran, à adapter
Dim desactive As Boolean 'mémorisation de la variable
Private Sub Workbook_Activate()
Workbook_SheetActivate ActiveSheet
End Sub
Private Sub Workbook_Deactivate()
desactive = True
Workbook_SheetActivate ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not desactive And InStr("," & PleinEcran & ",", "," & Sh.CodeName & ",") Then
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False 'facultatif
ActiveWindow.DisplayHeadings = False 'facultatf
ActiveWindow.DisplayGridlines = False 'facultatf
Else
desactive = False
Application.DisplayFullScreen = False
ActiveWindow.WindowState = xlMaximized
Application.DisplayFormulaBar = True 'facultatif
ActiveWindow.DisplayHeadings = True 'facultatf
ActiveWindow.DisplayGridlines = True 'facultatf
End If
End Sub