DominoArea.org [Archive]

Je restreint l'acces à certains document par ce code : Dim session As New NotesSession Dim userName As New NotesName(session.UserName) Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL 'on recupere l'entrée de l'utilisateur Set entry = acl.GetEntry( session.CommonUserName ) 'si c'est un nouveau doc If isnewdoc Then 'si il n'y a pas d'entrée If entry Is Nothing Then 'on essaie avec le username Set entry = acl.GetEntry( session.UserName ) End If 'si il n'y en a toujours pas If entry Is Nothing Then Messagebox _ "Pas d'entrée dans la LCA pour " & session.CommonUserName & _ " ou " & session.UserName,, "Pas d'entrée" End If 'si l'utilisateur est un chef de projet If entry.IsRoleEnabled( "[cdp]" ) Then 'c'est bon on continue Continue = True Else 'sinon on s'arrete Msgbox "Vous n'avez pas les droits requis pour créer une famille." Continue = False End If End IfMais cela ne marche pas pour les groupes de personnes qui ont ces roles, comment faire?Merci[%sig%]

C'est bon j'ai trouvé tout seul il faut faire:role = Evaluate("@UserRoles") If isnewdoc Then If role(0) = "[cdp]" Or role(1) = "[cdp]" Then Continue = True Else Msgbox "Vou n'avez pas le droit de créer une famille." Continue = False End If End If If Source.EditMode = True Then If role(0) = "[cdp]" Or role(1) = "[cdp]" Then Continue = True Else Continue = False Msgbox "Vou n'avez pas le droit de créer une famille." End If End IfEt en fait c'est beaucoup plus simple.[%sig%]

Encore plus simple: dans les propriétés du masque, onglet Sécurité, il ya un champ "Qui peut créer des documents avec ce masque" (inconvénient: le message ne peut pas être personnalisé).