[VBA] Menus et barres d'outils

Bonjour Fabrice,

Dans la feuille de code de ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub taProc()
Dim cmdB As CommandBar

' blabla
' blabla

For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
ActiveWindow.DisplayWorkbookTabs = True
End Sub


ChrisV


"Fabrice" <personne@microsoft.com> a écrit dans le message de news:
OuN2TEGMFHA.3228@TK2MSFTNGP12.phx.gbl...

Bonjour,

Mon code VBA n'a pas besoin de l'interface Excel.

Comment puis je faire pour désactiver toutes les barres outils et les
feuilles au démarrage de ce classeur et de la réactiver à la fin du
traitement ?


Merci