CommandBars - barre de menu

Bonjour à tous

je viens de faire une grosse bêtise de débutant : voulant cacher mes barres de menu et les retrouver, j'ai intégré dans ThisWorkBook les codes suivants.

Si dans le temps, j'avais réussi à obtenir satisfaction, cette fois ci mes barres disparaissent bien mais pas moyen de les retrouver et de plus tous mes fichiers Excel sont impactés.

Comment faire ? Svp

Bien cordialement

Private Sub Workbook_Open()

Application.ScreenUpdating = False

 'suppression des barres de menu
Dim cmb As CommandBar
Dim nouvelleBarre As CommandBar
For Each cmb In Application.CommandBars
    cmb.Enabled = False
Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' repositionnement des barres de menu
Dim cmb As CommandBar
For Each cmb In Application.CommandBars
    cmb.Enabled = True
Next
End Sub

J'ai résolu mon problème tout aussi bêtement que je l'avais créé :

Il a suffit que dans ThisWorkBook, à l'ouverture du fichier, je change

For Each cmdBar In Application.CommandBars
    cmdBar.Enabled = False   
Next

en

For Each cmdBar In Application.CommandBars
    cmdBar.Enabled = True
Next

la seule chose, je ne comprends pas pourquoi cette même instruction ne fonctionnait pas à la fermeture du fichier

Bonne soirée à tous

Jacques

Bonjour,

La propriété était mise sur true à la fermeture mais remise sur false à l'ouverture...

Cdlt,