je viens de faire une boulette

Bonjour à tous,

En fouillant dans les archives, je suis tombé la dessus :

Private Sub Workbook_Open()
'pour enlever les bars
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB

With Application
.DisplayFullScreen = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = False
End With
'
End Sub

Le problème est que je ne plus ouvrir maintenant Visual Basic car je n'ai plus les barres (me suis fais avoir).
Si quelqu'un à la solution pour remettre les barres.

D'avance merci

Cutbill