PROBLEME plein ecran

[fcarnute]

bonjour a tous

voila j'ai un fichier qui s'ouvre en plein ecran avec les barre outils et menu qui sont enlever jusque la tout va bien en revanche sur la premiere feuille j'ai un bouton qui m'envoi sur la seconde qui reste en plein ecran sur cette seconde feuille j'ai un bouton qui me ramene sur premiere et la probleme lorsque je reviens sur la premiere il y a une barre en haut qui s'affiche sans rien que puis je faire ci joint le code que j'utilise

merci a vous tous pour votre aide

Private Sub Workbook_Open()
Worksheets("Feuil1").Activate
Application.WindowState = xlMaximized
Application.CommandBars(1).Enabled = False
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Enabled = True
Application.CommandBars(1).Visible = True
Application.DisplayFullScreen = False
Application.WindowState = xlNormal
End Sub