Bug à la réduction de fenêtre

Bonjour,

J'ai un souci... J'ai réalisé un programme de caisse pour un magasin, en excel. Il fonctionne très bien mais je voudrais qu'il soit protégé, et qu'on ne voit pas le superflu (barres d'outils, barres de navigations, onglets,...)

J'avais trouvé une macro qui fonctionne bien, elle me donne ce que je souhaite. J'ai la macro inverse qui libère le tout grâce à un mot de passe. Le problème c'est quand je réduis la fenêtre puis que je la réouvre, tous les éléments reviennent. En bref, ça fout en l'air ma protection

Quelqu'un aurait une solution ?

Merci

voilà la macro de protection :

Sub Test_Protect()

    Dim wsSheet As Worksheet
    Dim sSheetStart
    Set sSheetStart = ActiveSheet
    ActiveWindow.DisplayWorkbookTabs = False

    With Application
    .DisplayFullScreen = True
    .DisplayFormulaBar = False
    .ScreenUpdating = False
    .EnableEvents = False
    End With

    For Each wsSheet In Worksheets
    wsSheet.Activate
    ActiveWindow.DisplayHeadings = False
    Next

    Feuil1.Activate
End Sub