OVH Cloud OVH Cloud

Suppression double click VBA

2 réponses
Avatar
Arnaud
Bonjour,

Je souhaite sur Excel 97, supprimer le double clik gauche=20
pour toutes les zones possibles de la fenetre de=20
l'application...

J'ai rus=E9 en augmentant au maximum la rapidit=E9 du double=20
click mais cependant il est toujours possible d'acc=E9der au=20
menu "personnaliser" des barres d'outils en double=20
cliquant sur la zone des barres d'outils.... en fait, je=20
ne veux pas que l'utilisateur de mon fichier puisse=20
modifier ou cr=E9er une nouvelle barre d'outils...

Merci d'avance pour le d=E9pannage.



l

2 réponses

Avatar
Ellimac
Bonjour,

Extrait de l'aide :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As
Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub

Camille
-----Message d'origine-----
Bonjour,

Je souhaite sur Excel 97, supprimer le double clik gauche
pour toutes les zones possibles de la fenetre de
l'application...

J'ai rusé en augmentant au maximum la rapidité du double
click mais cependant il est toujours possible d'accéder
au

menu "personnaliser" des barres d'outils en double
cliquant sur la zone des barres d'outils.... en fait, je
ne veux pas que l'utilisateur de mon fichier puisse
modifier ou créer une nouvelle barre d'outils...

Merci d'avance pour le dépannage.



l
.



Avatar
Philippe.R
Bonsoir Arnaud,
Un petit coup d'oeil de côté devrait être salutaire :

http://www.excelabo.net/xl/barres.htm#bloquerdebloquerbo
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Arnaud" a écrit dans le message de
news:031001c35aad$fcf40b40$
Merci Camille... (voir mail ci-dessous)

...mais ta routine ne supprime pas le double click sur les
barre d'outils... Y a t'il une solution...? ou alors
comment désactiver le bouton "Nouvelle..." de la fenetre
personnaliser les barres d'outils...

J'espère que ma demande est compréhensible (je débute !)
Merci d'avance,
Arnaud.

PS : J'utilise déjà la macro suivante...

For J = 1 To CommandBars.Count
CommandBars(J).Protection = msoBarNoChangeVisible
+ msoBarNoCustomize + msoBarNoMove
On Error Resume Next
Next


-----Message d'origine-----
Bonjour,

Extrait de l'aide :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As
Object, _
ByVal Target As Range, ByVal Cancel As Boolean)
Cancel = True
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je souhaite sur Excel 97, supprimer le double clik
gauche


pour toutes les zones possibles de la fenetre de
l'application...

J'ai rusé en augmentant au maximum la rapidité du double
click mais cependant il est toujours possible d'accéder
au

menu "personnaliser" des barres d'outils en double
cliquant sur la zone des barres d'outils.... en fait, je
ne veux pas que l'utilisateur de mon fichier puisse
modifier ou créer une nouvelle barre d'outils...

Merci d'avance pour le dépannage.