"Griser" les commandes Propriétés - Personnaliser

herve80 · 18 Décembre 2007

Bonjour à tous,

Il est facile de bloquer à l'ouverture la commande "Macro", mais Excel refuse de faire la même chose avec la commande "Personnaliser" (menu Outils-Personnaliser).

Et comment griser la commande "Propriétés" du menu Fichier ?

Une réponse à ses questions me comblerait de joie. 😀

bqtr · 18 Décembre 2007

Re : "Griser" les commandes Propriétés - Personnaliser

Bonjour Hervé,

Mettre ces deux macros dans un module de code standard.

Code:

Sub Desactive_Menu()
On Error Resume Next
CommandBars(1).FindControl(ID:=30007).Controls("Personnaliser...").Enabled = False
CommandBars(1).FindControl(ID:=30002).Controls("Propriétés").Enabled = False
End Sub

Sub Active_Menu()
On Error Resume Next
CommandBars(1).FindControl(ID:=30007).Controls("Personnaliser...").Enabled = True
CommandBars(1).FindControl(ID:=30002).Controls("Propriétés").Enabled = True
End Sub

Puis ces deux là dans le Thisworkbook.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Active_Menu
End Sub

Private Sub Workbook_Open()
Desactive_Menu
End Sub

Cela grise le menu Fichier/Propriétés et le menu Outils/Personnaliser...

Bien sur je décline toute responsabilité ....blabla...blabla 😀

Bonne journée

herve80 · 18 Décembre 2007

Re : "Griser" les commandes Propriétés - Personnaliser

bqtr à dit:
Bien sur je décline toute responsabilité ....blabla...blabla 😀

Pas de problème, je suis majeur et vacciné. 😉

NB1 : C'est génial de se faire aider aussi vite et aussi bien.
NB2 : j'envoie le chèque de 10.000 euros à quelle adresse ?

(Très) bonne journée également ! 🙂

"Griser" les commandes Propriétés - Personnaliser

herve80

XLDnaute Occasionnel

bqtr

XLDnaute Accro

herve80

XLDnaute Occasionnel

Discussions similaires

"Griser" les commandes Propriétés - Personnaliser

herve80

XLDnaute Occasionnel

bqtr

XLDnaute Accro

herve80

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency