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()"

Code:
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!!