Ne t'acharne pas, je crois que ce truc n'a jamais fait ce qu'il est censé faire et ce dans aucune version d'Excel. En espérant dire une bêtise !
---------- Ange Ounis ----------
Bonjour, msoBarNoCustomize ne fonctionne pas dans XL2003 et je ne trouve pas l'équivalence. Quelqu'un peut-il m'aider ? Merci beaucoup Claudius
michdenis
Bonjour Claudius,
Pour résoudre ta problématique, tu dois utiliser 2 lignes de commandes : '--------------------- Sub Test() 'Empêche le clic droit dans la zone des barres d'outils Application.CommandBars("Toolbar List").Enabled = False 'Empêche le double-clic dans la zone des barres d'outils 'et inhibe le menu "personnaliser" qui permet d'ajouter par 'exemple des nouvelles barres d'outils ou de personnaliser 'une barre d'outils laissée sans protection Application.CommandBars.DisableCustomize = True End sub '---------------------
Attention : Si tu appliques à une barre d'outils ceci : Tu ne peux pas ajouter (ou supprimer) des nouvelles commandes (contrôles) à la barre d'outils "Standard" et cela fonctionne toujours sous Excel 2003. '------------------------ Sub test1() With Application.CommandBars("Standard") .Protection = msoBarNoCustomize End With End Sub '------------------------
Salutations!
"Claudius" a écrit dans le message de news:
Bonjour, msoBarNoCustomize ne fonctionne pas dans XL2003 et je ne trouve pas l'équivalence. Quelqu'un peut-il m'aider ? Merci beaucoup Claudius
Bonjour Claudius,
Pour résoudre ta problématique, tu dois utiliser 2 lignes de commandes :
'---------------------
Sub Test()
'Empêche le clic droit dans la zone des barres d'outils
Application.CommandBars("Toolbar List").Enabled = False
'Empêche le double-clic dans la zone des barres d'outils
'et inhibe le menu "personnaliser" qui permet d'ajouter par
'exemple des nouvelles barres d'outils ou de personnaliser
'une barre d'outils laissée sans protection
Application.CommandBars.DisableCustomize = True
End sub
'---------------------
Attention : Si tu appliques à une barre d'outils ceci :
Tu ne peux pas ajouter (ou supprimer) des nouvelles commandes (contrôles) à la barre
d'outils "Standard" et cela fonctionne toujours sous Excel 2003.
'------------------------
Sub test1()
With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With
End Sub
'------------------------
Salutations!
"Claudius" <Claudius@discussions.microsoft.com> a écrit dans le message de news:
69039D26-A9D9-4F9B-963B-1E851FEF632A@microsoft.com...
Bonjour,
msoBarNoCustomize ne fonctionne pas dans XL2003 et je ne trouve pas
l'équivalence.
Quelqu'un peut-il m'aider ?
Merci beaucoup
Claudius
Pour résoudre ta problématique, tu dois utiliser 2 lignes de commandes : '--------------------- Sub Test() 'Empêche le clic droit dans la zone des barres d'outils Application.CommandBars("Toolbar List").Enabled = False 'Empêche le double-clic dans la zone des barres d'outils 'et inhibe le menu "personnaliser" qui permet d'ajouter par 'exemple des nouvelles barres d'outils ou de personnaliser 'une barre d'outils laissée sans protection Application.CommandBars.DisableCustomize = True End sub '---------------------
Attention : Si tu appliques à une barre d'outils ceci : Tu ne peux pas ajouter (ou supprimer) des nouvelles commandes (contrôles) à la barre d'outils "Standard" et cela fonctionne toujours sous Excel 2003. '------------------------ Sub test1() With Application.CommandBars("Standard") .Protection = msoBarNoCustomize End With End Sub '------------------------
Salutations!
"Claudius" a écrit dans le message de news:
Bonjour, msoBarNoCustomize ne fonctionne pas dans XL2003 et je ne trouve pas l'équivalence. Quelqu'un peut-il m'aider ? Merci beaucoup Claudius
