Barres d'outils

[bruno75014]

j'ai crée un classeur avec une macro pour rendre invisible les barres d'outils.
j'ai dû merder car maintenant tous les fichiers excel que j'ouvre n'ont plus de barre d'outils.
Comment faire pour réafficher ces barres d'outils.
J'ai déja viré excel puis j'ai réinstaller, mais rien n'y fait.
Je suis dans la panade. Au secours.
Les infos que j'ai pu trouver dans le forum ne marchent pas.

 

[salim]

bonsoir bruno75014

je te propose ce fil Lien suppriméoù tu trouvera l'avis très pertinent des grand du forum concernant ce genre de macro et un utilitaire de _Thierry qui recuperera a n'en pas douter ta barre d'outils

salim

 

[SHINTRA]

hello Salim & bruno75014 et bonjour le forum

je ne sais pas si pourras t'aider mais voila une macro que j'utilise pour afficher / masquer les barres d'outils

Option Explicit

Sub plein_ecran()
Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        Application.DisplayFullScreen = True
    End With
     Application.ScreenUpdating = True
 
End Sub
Sub plein_ecran_supp()
Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        Application.DisplayFullScreen = False
    End With
Application.ScreenUpdating = True
End Sub

Shintra

 

[bruno75014]

Sympa de me répondre.
Mais je n'ai plus une barre d'outils.
Je ne peux plus rien faire.
Lorsque j'aurais tout récupéré, j'essaierais ce que tu me propose.
Merci

 

[bruno75014]

OK Merci à tous.
J'ai trouvé chez Thierry.
Tu fais 'rechercher fichiers dossiers'
tu tapes *.xlb
Tout ce qui est trouvé tu le vires et le tour est joué
Merci à Thierry