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

FAQ XLD

XLDnaute Nouveau
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"

Code:
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.
 
Dernière modification par un modérateur:

olivier1984

XLDnaute Nouveau
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

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