barre d'outils

[Carole]

salut à tous et toutes

j'essaye à l'aide de l'enregistreur de macro de fabriquer une barre d'outils perso avec des boutons persos car mon appli est en plein écran complet,
et cette barre n'est pas utile sur toutes feuilles mais l'enregistreur n'arrive pas à affecter aux boutons leur macro respective et à afficher le texte dans le bouton au lieu du smiley...

j'aimerais fabriquer cette barre d'outils chaque fois que mon fichier est ouvert ( les macros existent déja ) pour éviter que quelqu'un ne l'efface dans un autre fichier

Merci d'avance...

 

[Ti]

essaie cette démo, elle devrait répondre à ton problème
Ce lien n'existe plus

 

[Carole]

Merci beaucoup Ti

Ca marche super mais un seul truc me gêne : peut on faire disparaitre l'onglet qui permet de "rajouter ou supprimer des boutons" ou bien l'inhiber ? car je ne voudrais pas que l'utilisateur puisse accèder à autre chose que ce que je lui propose...

Merci

 

[Ti]

C'est facile, tout en bas de la procédure CreeBarreMenu, juste avant End Sub, tu ajoutes les lignes suivantes :

With LBar
.Protection = msoBarNoCustomize
End With

et il sera impossible de lui ajouter ou de lui supprimer des boutons, même si le petit onglet est toujours visible (en fait il est là pour toutes les barres de commandes)

 

[Carole]

Salut Ti
je viens d'essayer mais ça ne marche pas, j'ai toujours la possibilité d'accèder au menu "rajouter ou supprimer des boutons"

merci pour ton aide.

 

[Carole]

re salut Ti
autant pour moi la protection marche dans la mesure ou effectivement on ne peut pas rajouter un bouton mais on a accès à la fenêtre d'affichage des autres barres d'outils...

n'y a t il pas un moyen de supprimer cet onglet de malheur ?

merci Ti et les autres