Discussion :

[radibus]

Bonjour,

A part fichier/options et décocher autoriser les menus contextuels qui n'est pas très pratique car je suis obligé de la recocher à chaque fois que je fais une modif
Et pire encore si je mets non dans le menu contextuel des formulaire ( j'en ai une cinquantaine)
Lors de l'ouverture de la base, j'ai a un formulaire d'identification qui une fois que le user et mdp sont rentrés , un autre formulaire s'ouvre avec des droits restreints ( masquage volet et ruban) pour certains users et qui fonctionne sur tous les formulaires.
L'idée est donc de faire pareil pour le click droit.
La je n'ai réussi qu'à interdire le click droit au formulaire menu
Quelqu'un a une solution ?

Code :

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

1
2
3
 DoCmd.RunCommand acCmdWindowHide
 DoCmd.ShowToolbar "Ribbon", acToolbarNo 
 Forms![menu].ShortcutMenu = False

Merci par avance

[User]

Bonjour,

C'est dans dans les options Access :

Base de données active

Autoriser les menus contextuels par défaut : Décocher



Cdlt

[radibus]

Merci user mais noté en 1ere ligne je ne souhaite pas cette méthode

une autre idée ?

[hyperion13]

Salut
Une piste peut-être ici.

[User]

autant pour moi,

Je ne comprends pas trop ces boucles imbriquées dans le code,

Pourquoi pas simplement :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function doRightClick(Optional active As Boolean = False)
    Dim obj As Object
 
    For Each obj In DBEngine.Workspaces(0).Databases(0).Containers("Forms").Documents
        DoCmd.OpenForm obj.Name, acHidden
        Forms(obj.Name).ShortcutMenu = active
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
End Function

Ou plus simplement encore :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function doRightClick(Optional active As Boolean = False)
    Dim obj As Object
 
    For Each obj In CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acHidden
        Forms(obj.Name).ShortcutMenu = active
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
End Function

[radibus]

Bonjour,

Merci pour les vos réponses très constructives

les 3 codes fonctionnent bien ce qui a permis de mettre non dans les menus contextuels de tous les formulaires en quelques lignes
Super si tu as oublié de le faire à la fin, par contre le click droit est interdit pour tout le monde puisque la propriété a été changé dans le formulaire
Moi je souhaiterais interdire le click droit uniquement à certains utilisateurs et sur tous les formulaires genre une ligne :-) comme l'interdiction du Ruban et du volet de navigation ci dessous et qui fonctionne vraiment très bien sur tous les formulaires dès que l'utilisateur concerné se logue.
Je n'ai donc par trouvé de ShortcutMenu pour all the Forms :-)

Code :

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

1
2
3
DoCmd.RunCommand acCmdWindowHide
 DoCmd.ShowToolbar "Ribbon", acToolbarNo 
 Forms![menu].ShortcutMenu = False

une idée ?

j'ai également décoché l'utilisation des touches spéciales access, donc le F11 ne fonctionne plus, pas contraignant pour moi
par contre le shit + f10 fonctionne et donne donc accès au mode création et VBA par rebondissement

Donc top du top en sécurité serait également d'interdire le shift ,Alt, click droit comme le code d'Argyronet mais toujours pareil que sur certains utilisateurs quand ils se loguent

Code :

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
Option Compare Database
Option Explicit
 
Private Sub cmdAllowByPassKey_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const BUTTON_LEFT = 1                                 'Gauche
Const BUTTON_RIGHT = 2                                'Droit
Const BUTTON_MIDDLE = 4                               'Central
 
Const SHIFT_MASK = 1                                  ' MAJ.
Const CTRL_MASK = 2                                   ' CTRL.
Const ALT_MASK = 4                                    'ALT.
Dim blnAllowByPassKeyValue As Boolean
 
    If Button = BUTTON_RIGHT And Shift = (SHIFT_MASK + ALT_MASK) Then
        blnAllowByPassKeyValue = (MsgBox("AllowByPassKey va changer de valeur ?" & vbCrLf & vbCrLf & "Oui pour True et Non pour False", vbYesNo, "AllowByPassKey") = vbYes)
        Call ChangeAllowByPassKey(blnAllowByPassKeyValue)
    End If
End Sub
 
Private Sub ChangeAllowByPassKey(ByVal ABPKValue As Boolean)
'[...]
    MsgBox "Changé à " & IIf(ABPKValue, "True", "False")
End Sub

Merci à vous

[User]

Bonjour,

J'imagine qu'il faut bien conserver ces droits d'accès quelque part.

Donc, disons dans une table T_Droits :

T_Droits
Nom_Utilisateur : Texte
Menus_Contextuels : Booléen (Vrai/Faux)


Ensuite, à partie du nom d'utilisateur il faudrait aller lire dans la table T_Droits le contenu du champ Menus_Contextuels :

Code :

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
Public Function doRightClick(nom_utilisateur, Optional active As Boolean = False)
    Dim obj As Object
    Dim rst_droits As DAO.Recordset
 
    If Not active Then ' si on est en mode désactivation des menus contextuels
        Set rst_droits = CurrentDb.OpenRecordset("select Menus_Contextuels from T_Droits where Nom_Utilisateur like '" & nom_utilisateur & "'")
        active = rst_droits!Menus_Contextuels
        rst_droits.Close
        Set rst_droits = Nothing
    End If
 
    For Each obj In CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acHidden
        Forms(obj.Name).ShortcutMenu = active
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
 
End Function

Ensuite appeler cette fonction comme cela pour l'utilisateur "Dupond" :

Code :

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

call doRightClick("Dupond")

Cdlt