Xl 2007 reduire le ruban au demarrage d'un classeur

Bonjour à tous,

J'aimerais que à chaque fois que je démarre mon classeur, le ruban se réduit automatiquement! Pour l'instant j'ai trouver la programmation suivante « simule ctrl+f1 » que je mets dans la fonction "workbook_open()"

Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _

    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _

    ByVal dwExtraInfo As Long)

 
Private Sub Workbook_Open()

   Application.DisplayFullScreen = False

    boolResult = False

    'Définit les caractères utilisables pour la saisie du mot de passe

    Tableau = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _

        "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", _

        "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")

    Sheets("Feuil1").Select

ActiveWindow.DisplayWorkbookTabs = False

    'Simule Ctrl+F1 

    Const VK_CONTROL = &H11

    Const VK_F1 = &H70

    Const KEYEVENTF_KEYUP = &H2

 
    keybd_event VK_CONTROL, 0, 0, 0

    keybd_event VK_F1, 0, 0, 0

    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0

    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0

 
End Sub

Donc, j’ai mon ruban personnalisé avec un seul onglet "lock out" qui permet de rentrer un mot de passe! Mon problème étant que mon ruban se réduit une fois sur deux! Et oui, il applique la fonction simule ctrl+f1 à chaque fois donc une fois sur deux à l’ouverture de mon classeur le ruban est "réduit/afficher/réduit"!!
J'aimerais savoir, je pensais introduire un "if" qui dit si mon onglet ou une commande à l'intérieur est visible, je lance le ctrl+f1!
Je pense que comme cela, le ruban devrait se réduire à chaque démarrage mais je n'arrive pas à faire la programmation!!

Quelqu'un pourrait-il m'aider à programmer cette commande??où si vous avez une autre idée?

Un grand merci à tous d'avance!!