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 Clique droit

Clique droit

5 réponses
Avatar
Caroline L.
Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le classeur
actif ?

Caroline
Signaler un problème avec ce contenu

5 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
MichDenis
bonjour Caroline,

Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur

'---------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)

Cancel = True

End Sub
'---------------------------

Salutations!



"Caroline L." a écrit dans le message de news: EC_3e.2348$
Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le classeur
actif ?

Caroline
Avatar
Caroline L.
Bonjour MichDenis,

J'ai inséré le tout, oui ça fonctionne... le clic droit est désactivé sur
les cellules. Merci. Est-ce possible qu'il le soit aussi sur les boutons
(boutons sur le classeur ou boutons ajoutés au menu) ?

Merci !



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

bonjour Caroline,

Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur

'---------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)

Cancel = True

End Sub
'---------------------------

Salutations!



"Caroline L." a écrit dans le message de news:
EC_3e.2348$

Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le
classeur

actif ?

Caroline





Avatar
ChrisV
Bonjour Caroline L,

En complément de la réponse de Denis, si tu souhaites également supprimer le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,

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

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


ChrisV


"Caroline L." a écrit dans le message de news:
EC_3e.2348$
Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le
classeur
actif ?

Caroline




Avatar
Caroline L.
Bonjour ChrisV,

merci à toi, tout fonctionne. Dernière petite demande : Est-ce que l'on peut
aussi supprimer le clic droit sur les objets, c'est-à-dire les boutons de
macro ?

Merci.
Caroline

"ChrisV" a écrit dans le message de news:
#
Bonjour Caroline L,

En complément de la réponse de Denis, si tu souhaites également supprimer
le

clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,

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

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


ChrisV


"Caroline L." a écrit dans le message de news:
EC_3e.2348$
Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le
classeur
actif ?

Caroline








Avatar
MichDenis
Bonsoir Caroline,

Si tu utilises la commande "protéger" la feuille pour ne protéger que les objets et non le contenu des cellules, tu obtiendras
l'effet que tu désires.


Salutations!


"Caroline L." a écrit dans le message de news: xu04e.2360$
Bonjour ChrisV,

merci à toi, tout fonctionne. Dernière petite demande : Est-ce que l'on peut
aussi supprimer le clic droit sur les objets, c'est-à-dire les boutons de
macro ?

Merci.
Caroline

"ChrisV" a écrit dans le message de news:
#
Bonjour Caroline L,

En complément de la réponse de Denis, si tu souhaites également supprimer
le

clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,

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

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


ChrisV


"Caroline L." a écrit dans le message de news:
EC_3e.2348$
Bonjour,

Est-ce simple de désactiver le clique droit mais seulement pour le
classeur
actif ?

Caroline