[EXCEL]J'ai perdu mes barres d'outils et menu

[FAQ XLD]

Si vous avez perdu toutes vos barres d'outils et vos menus (en jouant à l'apprenti sorcier VBA ou en ouvrant un fichier que vous n'auriez pas du 😉)

J'explique la manip de A à Z en partant de l'idée que vous n'avez jamais touché aux macros

- Ouvrir VBE (ALT + F11)

- Chercher le VBAProject qui porte le nom du classeur (ex: VBAProject (Classeur1))

- Faire un clic droit sur le VBAProject en question et faire Insertion > Module

- Copier dans le module le code ci-dessous

- Faire ensuite ALT + F8 et choisir la macro "RemiseEnPlaceExcel"

- Cliquer sur "Exécuter"

Sub RemiseEnPlaceExcel()

Dim Cbar As CommandBar
Dim i As Byte

'ici une boucle pour remettre enabled toutes les CommandBar d'origine

For Each Cbar In Application.CommandBars
If Cbar.BuiltIn = True Then
        If Cbar.Enabled = False Then Cbar.Enabled = True
End If
Next Cbar

'ici on Remets Visible et de l'ordre (et on remets enabled dans la Foulée au cas où !!)
With Application
      .DisplayFullScreen = False
      .DisplayStatusBar = True
      .DisplayFormulaBar = True
    With .CommandBars("Worksheet Menu Bar")
    .Enabled = True
    .Visible = True
    End With
    With .CommandBars("Standard")
    .Enabled = True
    .Visible = True
    End With
    With .CommandBars("Formatting")
    .Enabled = True
    .Visible = True
    End With
    With .CommandBars("Cell")
    .Enabled = True
    End With
End With
    
End Sub

_______________________________________________________________

Ce code est un code "simplifié" de _Thierry. J'ai retiré la partie rapport de son code originel.

 

[olivier1984]

chez moi même problème et le code ne marche pas car il ya un mot de passe qui est exigé. Que puis je faire pour appliquer ce code VBA?
Merci à vous

 

[dg62]

Bonjour Olivier
ce code et pour remettre en état excel, ce n'est pas pour modifier le fichier de Don Pépé.

 

[olivier1984]

justement je n'arrive pas à intégrer ce code

 

[dg62]

Après avoir fermé le prog de DonPépé
ouvrir un nouveau classeur
Alt F11
insertion module
coller le code
exécuter