Conserver le plein écran, si réduction, double clic...

Bonjour,

J'ai beau chercher sur le net.

Je n'arrive pas à revenir en plein écran sur un classeur, aprés réduction, agrandissement, double clic dans le ruban....
J'ai beau avoir ceci :

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.ScreenUpdating = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub

Ca ne change rien. Nous avons une contrainte de taille d'écran et résolution au boulot, le logiciel sous excel est optimisé en plein écran.
J'ai pensé transcrire mes feuilles en UserForm.
mais ça représente trop de boulot.

On m'a conseillé de me voir en API, je ne maîtrise pas.
Pour le double clic dans la barre du haut. encore çà passe. Mais la réduction d'excel dans la barre des taches, je cherche une solution.

Merci


Excel 2010