Discussion :

[alain91210]

Bonjour,

Je cherche à empêcher l'utilisateur d'avoir accès au menu "Afficher les colonnes..." dans un sous-formulaire dans le contexte suivant :

Sous formulaire en mode feuille de donnée, lors d'un clic-droit sur l'entête de colonne.

On peut alors voir et afficher tout les champs masqués !

Je souhaite pourtant garder le menu contextuel dans la feuille de donnée (qui ne me pose d'ailleurs pas de soucis).

Merci de votre aide,

Alain

[LedZeppII]

Bonsoir,

essaie ça:

Code vb :

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
' Désactiver l'élément du menu
Sub AfficherColonnesNon()
Const idCltMenuAfficherLesColonnes = 2764
AutoriserCtlMenu idCltMenuAfficherLesColonnes, False
End Sub
 
' Activer l'élément du menu
Sub AfficherColonnesOui()
Const idCltMenuAfficherLesColonnes = 2764
AutoriserCtlMenu idCltMenuAfficherLesColonnes, True
End Sub
 
' Active/Désactive un élément de menu dans tous les menus
Sub AutoriserCtlMenu(id As Long, blnActif As Boolean)
Dim objCtls As Object, objCtl As Object
 
Set objCtls = Application.CommandBars.FindControls(, id)
 
For Each objCtl In objCtls
   objCtl.Enabled = blnActif
Next
 
End Sub

A+

[alain91210]

Tout simplement parfait !

Merci infiniment LedZeppII.

;o)