Menu Vba

[olga14]

bonsoir,
je cherche le moyen en vba, que lorsque un utilisateur ouvre un fichier de ma conception, il ne voie pas le menu d'excel ! Par contre je souhaite garder dans cette page un petit bouton pour pouvoir le reafficher.
Est ce possible ?
D'avence merci

 

[galopin01]

bonsoir,
Les deux premières macros sont à coller dans un module 'Normal' (Module 1, Module 2 mais pas un module de feuille)

Sub ClrBar()
'masque les menus et barres d'outils
For Each o In CommandBars
o.Enabled = False
Next
End Sub

Sub RstBar()
'affiche les menus et barre d'outils
For Each o In CommandBars
o.Enabled = True
Next
End Sub

les deux autres macros sont à copier dans ThisWorkbook elles font le boulot automatiquement à l'ouverture et à la fermeture du classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RstBar
End Sub

Private Sub Workbook_Open()
ClrBar
End Sub

Ok ?