Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Une piste avec le code suivant dans lequel il faudra adapter "&Fichier" selon votre usage.
Copiez le code dans le module évènementiel de ThisWorkbook
'********** Private Sub Workbook_Activate() Dim C As CommandBarPopup For Each C In Application.CommandBars("Worksheet Menu Bar").Controls If C.Caption <> "&Fichier" Then 'A adapter C.Visible = False End If Next C End Sub
Private Sub Workbook_Deactivate() Dim C As CommandBarPopup For Each C In Application.CommandBars("Worksheet Menu Bar").Controls C.Visible = True Next C End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous et bonne fin d'année voila ma question
J ai créé un environnement sous excel avec plein de macro VBA J'ai parallèlement créer un menu personnalisé. Mais j ai un problème.
Je voudrais via VBA qu'à l'ouverture de mon fichier que seul soit apparent mon menu personnalisé donc supprimer le le menu excel pouvez vous m'aider ?
merci pour votre aide
Jean Marie
Bonjour,
Une piste avec le code suivant dans lequel il faudra adapter
"&Fichier" selon votre usage.
Copiez le code dans le module évènementiel de ThisWorkbook
'**********
Private Sub Workbook_Activate()
Dim C As CommandBarPopup
For Each C In Application.CommandBars("Worksheet Menu Bar").Controls
If C.Caption <> "&Fichier" Then 'A adapter
C.Visible = False
End If
Next C
End Sub
Private Sub Workbook_Deactivate()
Dim C As CommandBarPopup
For Each C In Application.CommandBars("Worksheet Menu Bar").Controls
C.Visible = True
Next C
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange
Bonjour a tous
et bonne fin d'année
voila ma question
J ai créé un environnement sous excel avec plein de macro VBA
J'ai parallèlement créer un menu personnalisé.
Mais j ai un problème.
Je voudrais via VBA qu'à l'ouverture de mon fichier que seul soit apparent
mon menu personnalisé donc supprimer le le menu excel
pouvez vous m'aider ?
Une piste avec le code suivant dans lequel il faudra adapter "&Fichier" selon votre usage.
Copiez le code dans le module évènementiel de ThisWorkbook
'********** Private Sub Workbook_Activate() Dim C As CommandBarPopup For Each C In Application.CommandBars("Worksheet Menu Bar").Controls If C.Caption <> "&Fichier" Then 'A adapter C.Visible = False End If Next C End Sub
Private Sub Workbook_Deactivate() Dim C As CommandBarPopup For Each C In Application.CommandBars("Worksheet Menu Bar").Controls C.Visible = True Next C End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous et bonne fin d'année voila ma question
J ai créé un environnement sous excel avec plein de macro VBA J'ai parallèlement créer un menu personnalisé. Mais j ai un problème.
Je voudrais via VBA qu'à l'ouverture de mon fichier que seul soit apparent mon menu personnalisé donc supprimer le le menu excel pouvez vous m'aider ?
