Re: Désactivation complète du clic droit dans une feuille Excel

[michdenis]

Bonjour Alain,

Si tu remplaces ta barre des menus par un barre de boutons de commande, tu vas avoir droit au clic droit !

Cependant, l'usager va aussi pouvoir personnaliser et insérer toutes les commandes de son choix ... !

Salutations!

"NAVARRO Alain" <NAVARR...@discussions.microsoft.com> a écrit dans le message de news:
495D9107-9641-4F10...@microsoft.com...
Bonjour à tous,

je souhaiterai mettre en place des feuilles Excel qui ne proposeraient à
leur ouverture que les menus imprimer et quitter

Jusque là, j'y arrive sans problème, sauf que je peux toujours fair un clic
droit sur la barre d'outil et je peux remettre un à un les menus :(

Comment pourrais je donc désactiver complètement ce clic droit (et pas
uniquement sur les cellules mais de partout ou je clique !)

Merci !

Alain
--
AN

[anonymousA]

bonjour,

'désactiver l'accès à la boite de dialogue Personnaliser d'Excel
With Application
'dans le menu Outils
.CommandBars.FindControl(ID:=797).Enabled = False
'dans le menu Affichage et par clic droit sur une barre d'outils
.CommandBars("Toolbar List").Enabled = False
End With
'pour désactiver toutes les autres barres de commandes
For Each cb In Application.CommandBars
cb.Enabled = False
Next
'ici tu crées ta barre à toi appelé pour l'exemple MyBar , avec
MyBar.Protection = msoBarNoCustomize

Peux te garantir que ca marche au moins pour Excel2000. Je l'ai essayé et
ressayé.

A+

"NAVARRO Alain" a écrit :

[daniel_hg]

Pour une feuille
**********************************************************************************
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
End Sub
**********************************************************************************

Pour tous les feuilles
**********************************************************************************
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
Cancel = True
End Sub

"NAVARRO Alain" <NAVARR...@discussions.microsoft.com> escribió en el
mensaje news:495D9107-9641-4F10...@microsoft.com...