Menus conceptuels - suppression de commandes

Version imprimable

Bonjour
Je souhaite sur une application, supprimer un certain nombre de commande du menu conceptuel.
J'utilise la solution de microsoft sur le lien suivant : https://docs.microsoft.com/fr-fr/pre...2(v=office.14)
Cela donne une routine comme celle-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub DeleteFromCellMenu(Etiquettemenu As String)
    Dim ContextMenu As CommandBar
    Dim ctrl As CommandBarControl
 
    ' Set ContextMenu to the Cell context menu.
    Set ContextMenu = Application.CommandBars("Cell")
 
    ' Delete the custom controls with the Tag : My_Cell_Control_Tag.
    For Each ctrl In ContextMenu.Controls
        If ctrl.Caption = Etiquettemenu Then
            ctrl.Delete
        End If
    Next ctrl
 
    ' Delete the custom built-in Save button.
    On Error Resume Next
    ContextMenu.FindControl(ID:=3).Delete
    On Error GoTo 0
End Sub

Sur un classeur vierge de test, cela fonctionne parfaitement. Sur mon appli, pas du tout.
J’intègre l'appel à la procédure directement dans le démarrage de l’application de cette façon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    If ThisWorkbook.Name = "Base opérationnelle de test version 2-1-0-1.xlsm" Then GoTo Suite
    Call DeleteFromCellMenu("A&fficher/Masquer les commentaires")
    Call DeleteFromCellMenu("Insérer un co&mmentaire")
    Call DeleteFromCellMenu("&Trier")
    Call DeleteFromCellMenu("&Supprimer...")
    Call DeleteFromCellMenu("E&ffacer le contenu")
    Call DeleteFromCellMenu("Filtr&er")
    Call DeleteFromCellMenu("For&mat de cellule")
    Call DeleteFromCellMenu("Collage &spécial...")
    Call DeleteFromCellMenu("Coller le ta&bleau")
    Call DeleteFromCellMenu("&Insérer...")
    Call DeleteFromCellMenu("Anal&yse rapide")
    Call DeleteFromCellMenu("&Définir un nom...")
    Call DeleteFromCellMenu("Modifier le lien &hypertexte...")
    Call DeleteFromCellMenu("Lien &hypertexte...")
    Call DeleteFromCellMenu("C&oller")
    Call DeleteFromCellMenu("&Copier")
    Call DeleteFromCellMenu("Lien &hypertexte...")
    Call DeleteFromCellMenu("Lien &hypertexte...")

Le premier test me permet de ne pas supprimer sur ma base test
Mais quand je vais sur ma feuille principale, clic droit sur une cellule ne change rien
Si quelqu'un pourrait me donner une piste, il serait bien venu.
Merci d'avance

17/11/2018, 21h51
patricktoulon

re
bonsoir
tu peux nous en dire plus sur le contexte
par exemple a quoi te sert ceci

Code:

If ThisWorkbook.Name = "Base opérationnelle de test version 2-1-0-1.xlsm" Then GoTo Suite

parce que si la macro est dans ce classeur je n'en vois pas l'interet
apres nommer le control pour le supprimer n'est pas une bonne idée ,j'ai dis idée heu... pardon j'ai voulu dire "ID";)
tu veux les connaitre?
Code:

1 2 3 4 5 6 7 8 Sub test() Cells(1, 1).Resize(1, 2).Value = Array("caption", "id") For Each ctrl In CommandBars("cell").Controls i = i + 1 Cells(i + 1, 1) = ctrl.Caption Cells(i + 1, 2) = ctrl.ID Next End Sub
resultat

Citation:

caption id
Cou&per 21
&Copier 19
C&oller 22
Colla&ge spécial... 755
&Insérer... 3181
&Supprimer... 292
E&ffacer le contenu 3125
Filtr&er 31402
&Trier 31435
Insérer un co&mmentaire 2031
Effacer le comme&ntaire 1592
A&fficher/Masquer les commentaires 1593
Fo&rmat de cellule 855
&Liste déroulante de choix... 1966
&Afficher le champ phonétique 1614
Nomme&r une plage... 13380
Lien &hypertexte 1576
&Modifier le lien hypertexte... 1577
&Ouvrir le lien hypertexte... 1015
Supp&rimer le lien hypertexte 3626
Développer jusqu'au&x détails 11299
Actions s&upplémentaires 31595
Plein é&cran 178

parti de la
exemple
application.commandbars.findcontrol(id:=755).enabled=false

petite parentheze mais qui resume tout
quand tu fait (ctrl.Delete) sur un control buildin tu risque pas de l'enlever c'est impossible tout du moins sur 2007tu peux seulement les deactiver
tu ne peux supprimer que ceux que tu a créé

Bonjour

Comme je l'ai écrit, le premier test sert à faire la différence entre la base test qui me permet de faire évoluer l'application et les versions opérationnelles qui évoluent en fonction des versions.

J'ai fait (et j'avais fait) le test avec ID ou Caption et le résultat est le même, le menu conceptuel n'est pas impacté.
Sur un excel vierge, cela a fonctionné avec la routine suivante qui est la routine Microsoft[B]
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub DeleteAllFromCellMenu() Dim ContextMenu As CommandBar Dim ctrl As CommandBarControl ' Set ContextMenu to the Cell context menu. Set ContextMenu = Application.CommandBars("Cell") ' Delete the custom controls with the Tag : My_Cell_Control_Tag. For Each ctrl In ContextMenu.Controls ctrl.Delete Next ctrl ' Delete the custom built-in Save button. On Error Resume Next ContextMenu.FindControl(ID:=3).Delete On Error GoTo 0 End Sub
Je peux revenir en arrière avec un Ctrl.reset

Cette même routine ne fonctionne pas sur la base test

Pour ta proposition
Code:

1 2 application.commandbars.findcontrol(id:=755).enabled=false
Je l'a fait tourner à partir d'appel successifs du type
Code:

1 2 3 4 5 6 Call test2(22) '("Coller") '---------------------------------------------------------------------------- Sub Test2 application.commandbars.findcontrol(id:=755).enabled=false End sub
Elle ne fonctionne ni sur un classeur vierge ni sur la base test

Je ne comprend pas bien ce qu'il se passe

Correction

Code:

1
2
3
4
 
Sub Test2(ID as integer)
       application.commandbars.findcontrol(id:=ID).enabled=false
End sub

18/11/2018, 23h50
com-ace

En continuant mes recherches, j'ai découvert que les procédures utilisées fonctionnaient mais en dehors des plages tableaux.
En dehors, le menu conceptuel était modifié mais sur les cellules composant le tableau, le menu conceptuel est différent de celui des cellules.
Reste à connaitre le menu conceptuel associé au tableau
Si quelqu'un a une idée...
19/11/2018, 12h32
patricktoulon

re

re
c'est peut etre le meme juste modifié
je vais regarder ca
et c'est poas conceptuel c'est contextuel ;)(click droit)

re
peut etre que si tu liste tes commands bars avec leur controls tu pourrais trouver ton menu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
     For Each cmb In Application.CommandBars
        c = c + 1
        Cells(1, c) = cmb.Name
       lig = 1
    For Each ctrl In cmb.Controls
            lig = lig + 1
            On Error Resume Next
            Cells(lig, c) = ctrl.Caption & " : " & ctrl.ID
        Err.Clear
        Next
    Next
End Sub