Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel clic droit

clic droit

3 réponses
Avatar
Roger Sanchez
Bonjour =E0 tous,
Sur un classeur est-il possible avec VBA de supprimer=20
toutes les options du clic droit ? Ou certaines, par=20
exemple le copier?
Par avance merci,
Roger
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Roger,

supprimer toutes les options du clic droit...


Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub

Ou certaines, par exemple le copier ?


Sub supCopier()
Application.ScreenUpdating = False
On Error Resume Next
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Controls("Copier").Enabled = False
End If
Next cbar
End Sub


ChrisV


"Roger Sanchez" a écrit dans le
message de news: 8b5601c3ea44$d8a0d300$
Bonjour à tous,
Sur un classeur est-il possible avec VBA de supprimer
toutes les options du clic droit ? Ou certaines, par
exemple le copier?
Par avance merci,
Roger

Avatar
ChrisV
Re,

Dans la cas de cette dernière option (>ou certaines, par exemple le copier
?), la proc ne supprime que cette possibilité à partir d'un menu
contextuel...

Il faudra préciser si tu désires également supprimer la commande accessible
à partir de la BO Standard, ou par les raccourcis clavier...


ChrisV


"ChrisV" a écrit dans le message de news:

Bonjour Roger,

supprimer toutes les options du clic droit...


Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub

Ou certaines, par exemple le copier ?


Sub supCopier()
Application.ScreenUpdating = False
On Error Resume Next
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Controls("Copier").Enabled = False
End If
Next cbar
End Sub


ChrisV


"Roger Sanchez" a écrit dans le
message de news: 8b5601c3ea44$d8a0d300$
Bonjour à tous,
Sur un classeur est-il possible avec VBA de supprimer
toutes les options du clic droit ? Ou certaines, par
exemple le copier?
Par avance merci,
Roger





Avatar
Sitting Hoax \(BM\)
bonsoir,
en complément,
cette procédure annule le click droit.
A coller dans le module de la feuille
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
End Sub
Amicalement
Sitting Hoax

"Roger Sanchez" a écrit dans le
message de news:8b5601c3ea44$d8a0d300$
Bonjour à tous,
Sur un classeur est-il possible avec VBA de supprimer
toutes les options du clic droit ? Ou certaines, par
exemple le copier?
Par avance merci,
Roger