C
Cutbill1234
Guest
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
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