Discussion :

[retraite83]

Bonjour,

pour éviter toute mauvaise manipulation, je voudrai interdire le clic droit sur mes classeurs excel, sur les feuilles et les onglets

J'ai trouvé dans les docs à mettre dans ThisWorkbook :

Code :

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

1
2
3
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Cela marche bien sur un de mes classeurs mais pas sur les autres.

Je ne trouve pas de contre indications ou précautions à prendre

j'ai aussi trouvé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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

mais cela ne marche pas

Y-a-t-il d'autres solutions

[patricktoulon]

bonsoir retraité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CLICK_DTOITE(ETAT As Boolean)
With Application
.CommandBars("cell").Enabled = ETAT
.CommandBars("ply").Enabled = ETAT
End With
End Function
'
Sub reclick()
CLICK_DTOITE True
End Sub
'
Sub Nonclick()
CLICK_DTOITE False
End Sub

[retraite83]

Ok je vais étudier pour comprendre.. je mets ça dans thisworkbook du classeur ?

[patricktoulon]

re
met ces 2 sub et la fonction dans un module standard tel quel et dans thisworkbook tu met
a l'ouverture les menus sont inihbés et a la fermeture du classeur on reactive les menus

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
reclick
End Sub
Private Sub Workbook_Open()
Nonclick
End Sub

[retraite83]

Ok compris, je vais regarder cela.
Une question pratique, j ai réservé le module 3 de tous mes classeurs pour y mettre les "public cste"

Je peux utiliser ce module pour les 2 sub et la fonction ou ça va coincer. Ça serait mieux si possible d'avoir tout ce qui est inter classeur dans le même numéro de module.
Ta préconisation ?

[patricktoulon]

quand tu touche au commandbars c'est valable pour tout les classeurs ouverts dans la meme instance

[Pierre Fauconnier]

Salut.

Encore une énième discussion à presque 50 messages, sans qu'à aucun moment on ne se pose la question primordiale: Pourquoi désactiver le clic droit?

On est dans EXCEL, bor***!! Si vous voulez tout contrôler, apprenez à programmer et développez votre application en C#, java, windev, Delphi ou autre, dans laquelle vous pourrez tout contrôler!

On en est à +/- 50 messages dont certains sont d'une condescendance rare pour un truc inutile et qui va poser plus de problèmes qu'autre chose, avec en plus des réponses erratiques non maîtrisées! Et on vient faire semblant qu'Excel ne gèrerait pas ses fenêtres de la même façon en 2013 qu'en 2007. C'est se foutre du monde!

Pour rappel:

ON EST DANS EXCEL, ICI!!!!!