masquer et restaurer le bouton outils dans la barre de menu

[LIONEL1950]

Bonjour

J'aimerai dans certains fichiers excel masquer le bouton outils dans la barre de menu
quel est le code vba et bien entendu le code pour le restaurer
ce code bien sur uniquement sur le fichier du classeur ou se trouve ce code et qui n'affecte pas les autres classseurs excel

vous remerciant par avance

Cordialement
Lionel

 

[Staple1600]

Re : masquer et restaurer le bouton outils dans la barre de menu

Bonjour


Fais une recherche dans les archives du forum.
J'ai jadis posté un code VBA qui fait ce que tu souhaites.

Finalement je t'épargne cette recherche 😉
https://www.excel-downloads.com/threads/barre-doutils.126606/

Ne pas oublier la trousse de secours dans la FAQ en cas de problème. ( le lien est dans le lien ci-dessus)

EDITION: Bonjour Hasco 😉
C'est que le Ruban ne règne pas encore en maitre sur la galaxie Office.

 

[Guest]

Re : masquer et restaurer le bouton outils dans la barre de menu

Bonjour,

Affiche/Masque le menu Outils
A mettre dans le module ThisWorkBook du classeur et à utiliser avec précaution:

Private Sub Workbook_Activate()
MenuOutilsVisible False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MenuOutilsVisible True
End Sub
Private Sub Workbook_Deactivate()
MenuOutilsVisible True
End Sub
Private Sub Workbook_Open()
MenuOutilsVisible False
End Sub
Private Function MenuOutilsVisible(bVisible As Boolean)
Dim MenuOutils As CommandBarControl
Set MenuOutils = Application.CommandBars.FindControl(ID:=30007)
If Not MenuOutils Is Nothing Then MenuOutils.Visible = bVisible
End Function

En cas de problème:

Application.CommandBars("Worksheet Menu Bar").Reset

[Edit] Hello Staple, il y avait longtemps que je n'avais pas traité la chose....😀
😀😀
A+

 

[LIONEL1950]

Re : masquer et restaurer le bouton outils dans la barre de menu

Merci pour la reponse

J'ai essayé et cela fonctionne tres bien, toutefois lorsque je clique pour fermer le fichier et que je reviens sur annuler le bouton outil fonctionne. Y A T-il un possibilité a ce qu'il n'apparaisse pas

Merci d'avance
Lionel

 

[Guest]

Re : masquer et restaurer le bouton outils dans la barre de menu

Re,

Ce sont les limites du truc. De toute façon, il suffit que l'utilisateur refuse les macros pour que cela ne fonctionne plus.

Sinon, en forçant l'enregistrement avant de faire réapparaître le menu, le fichier sera fermé, sans avertissement et l'utilisateur ne pourra pas annuler.
Remplacer l'évènement BeforeClose par celui-ci:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.save
MenuOutilsVisible True
End Sub

A+

 

[LIONEL1950]

Re : masquer et restaurer le bouton outils dans la barre de menu

Merci
c'est ce qu'il me fallait
lIONEL