Discussion :

[Jacksun]

Bonjour

Mon but est de désactiver les lignes 'Insérer' et 'Supprimer' dans le menu qui apparaît lors d'un click droit sur ma feuille Excel, et de les réactiver plus tard.

Je ne sais pas comment utiliser "CommandBars".

Pouvez-vous m'aider avec un exemple?

Merci

[EricDgn]

Bonjour,

Un début de solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Public Sub ClicDroit(b As Boolean)
    With Application.CommandBars("Cell")
        .Controls("&Insérer...").Visible = b
        .Controls("&Supprimer...").Visible = b
    End With
End Sub
 
Sub ClicDroit_Oui()
    ClicDroit True
End Sub
 
Sub ClicDroit_Non()
    ClicDroit False
End Sub
 
Sub ClicDroit_Liste()
    Dim c
    For Each c In Application.CommandBars("Cell").Controls
        Debug.Print c.ID, c.Caption
    Next c
End Sub

Maintenant, un code permettant d'ajouter le nom de la commandbar activée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
'--- https://www.rondebruin.nl/win/s6/win001.htm
 
'--- pour afficher les noms des "commandbars" en bas de chacune d'elles
 
Sub Add_Name_To_Contextmenus()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        With Cbar
            If .Type = msoBarTypePopup Then
                On Error Resume Next
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "Name for VBA = " & Cbar.Name
                    .Tag = "NameButtonInContextMenu"
                End With
                On Error GoTo 0
            End If
        End With
    Next
End Sub
 
'--- pour supprimer les noms des "commandbars" qui ont été ajoutées en bas de chacune d'elles
 
Sub Delete_Name_From_Contextmenus()
    Dim Cbar As CommandBar
    Dim ctrl As CommandBarControl
 
    For Each Cbar In Application.CommandBars
        With Cbar
            If .Type = msoBarTypePopup Then
                For Each ctrl In .Controls
                    If ctrl.Tag = "NameButtonInContextMenu" Then
                        ctrl.Delete
                    End If
                Next ctrl
            End If
        End With
    Next
End Sub

Cordialement.

[Pierre Fauconnier]

Salut

Shift+Espace + Ctrl++ résoudra le problème pour la personne qui connaît les raccourcis...

Le ruban Accueil\Cellules\Insérer permet aussi l'insertion de lignes...


=> la solution de supprimer le clic droit = Bullshit


Eventuellement, protéger la feuille contre l'insertion intempestive. Sinon, créer sa propre application dans laquelle on maîtrise tout de A à Z... Mais penser que tu vas pouvoir te protéger en supprimant des menus... Franchement... ^^