Bonjour à tous,
J'ai récupéré une macro qui me supprime toutes les barres et menus mais est-il possible de garder le menu FICHIER
afin de pouvoir par exemple enregistrer ou imprimer.
Ci-dessous les macros à l'ouverture et femeture du classeur.

Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub


Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub

Dans l'attente d'une réponse, merci. Configuration: Windows XP
Internet Explorer 6.0