Barre d'outils disparue

A l'ouverture de mon classeur, je n'ai plus aucune barre d'outil visible. Comment les rétablir ?

Commence par essayer les astuces indiquées sur la page application/plantages. Tu peux aussi utiliser cette macro :

sub ResetCommandBars()
 Dim x
 On Error Resume Next
 For x = 1 To Application.CommandBars.Count
 With Application.CommandBars(x)
 .Reset
 .Enabled = True
 End With
 Next x
 end sub

Cependant, si avant le plantage le niveau de sécurité était à "haut" tu ne pourras pas utiliser une macro... Dans ce cas tu peux recourir à un script vbs : Colle ce code dans le bloc-notes puis enregiste le sous RestaurXL.vbs.

Lancer RestaurXL.vbs    
With CreateObject("Excel.Application") 
 .Workbooks.Add  
.Commandbars(1).Enabled = True 
 .Visible = True 
 End With

Auteurs : ,

Mots clefs associés à cette page : , ,