OVH Cloud OVH Cloud

Verrouiller les BO

1 réponse
Avatar
Arnaud
Bonjour,
Je souhaite que l'utilisateur de mon fichier ne puisse pas=20
modifier ou cr=E9er une BO aussi je recherche comment : (2=20
questions)

1 - Comment supprimer le double clik gauche sur la zone=20
des barres d'outils et ainsi ne pas lancer le menu=20
personnaliser les barres d'outils...

La routine suivante ne r=E9pond pas =E0 ce que je cherche
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As=20
Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel =3D True
End Sub

ou

2 - Comment inhiber le bouton "Nouvelle..." du menu=20
personnaliser les BO....

Merci bcp d'avance pour vos solutions.

1 réponse

Avatar
Philippe.R
Bonsoir Arnaud,

J'ai l'impression que tu gagnerais à t'inspirer de cette réponse de Misange à une autre question sur la
personnalisation de BO :
"==================================================================="
Alors même si cela prend au départ plus de temps, je te conseille vraiment
de créer tes barres d'outil à l'ouverture du classeur et de les détruire à
la fermeture. Comme ça tu es sur qu'elles suivent bien.
tu trouveras une exemple à télécharger ici
http://www.excelabo.net/xl/barres.htm#exemplebo
pour t'inspirer.
"==================================================================="
Bon courage
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Arnaud" a écrit dans le message de
news:901501c35b76$9fd300a0$
Bonjour,
Je souhaite que l'utilisateur de mon fichier ne puisse pas
modifier ou créer une BO aussi je recherche comment : (2
questions)

1 - Comment supprimer le double clik gauche sur la zone
des barres d'outils et ainsi ne pas lancer le menu
personnaliser les barres d'outils...

La routine suivante ne répond pas à ce que je cherche
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As
Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub

ou

2 - Comment inhiber le bouton "Nouvelle..." du menu
personnaliser les BO....

Merci bcp d'avance pour vos solutions.