Section à accès controlée (URGENT !!!!!!!)

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Section à accès controlée (URGENT !!!!!!!)

Messagepar Nico (débutant) » 24 Juil 2003 à 14:29

Bonjour, J'ai un tableau avec des champs texte, des champs date et des champs texte riche. Je dois masquer ce tableau avec les conditions suivantes : - Le groupe Direction doit tout voir. - Les autres ne doivent voir ce tableau que si le champ categorie est différent de X ou de Y. Je pensais utilisé une section a acces controlé mais je ne comprends pas comment ca marche. Merci pour votre aide. Nico
Nico (débutant)
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar asx9 » 24 Juil 2003 à 14:38

tu sélectionne les lignes de ton tableau, clique de droit, propriété texte. dans l'onglet de masquage tu coches "masquer si formule vérifiée" et tu rentres:@IsNotMember("Role1";@Text(@UserRoles))
asx9
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar Nico (débutant) » 24 Juil 2003 à 14:50

J'ai déjà essayé mais ca ne fonctionne pas à cause des champs Rich Text. De plus, il faut que le groupe Direction voit tout et que le groupe VVVV ne voit ce tableau que si le champ categorie est différent de X ou Y. Je ne pense pas que cette solution puisse fonctionner. La section à accès controlée pour t elle fonctionner mieux ? Nico
Nico (débutant)
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar Droad » 24 Juil 2003 à 14:59

Tu peux mettre tes champs dans un sous-masque, insérer dans ton masqueun sous masque "selon formule", avec une formule du genre:@If("Direction"=@UserNamesList | ("VVVV"=@UserNamesList & !Categorie="X":"Y"); "sousmasque"; "")Attention, pour que UserNamesList fonctionne, il faut que l'option "LCA cohérente" soit cochée dans les propriétés avancées de la LCA.Si Direction est un rôle, et non un groupe, utilise "[Direction]=@UserRoles[%sig%]
Droad
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar asx9 » 24 Juil 2003 à 15:04

pour ton champ mot clé il faut cocher "mettre à jour à chaque mot clé"
asx9
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar phi » 25 Juil 2003 à 09:40

Salut,Les section à accès contrôlé n'ont pour utilité à mes yeux que d'interdire/d'autoriser l'édition. Pour masquer/afficher des zones mieux vaut utiliser l'onglet de masquage.Si Direction et VVVV sont des groupes, cette formule devrait rendre la zone concernée visible dans les cas suivants :- si l'utilisateur a le rôle Direction- si l'utiliasteur a le rôle VVVV et que le champ categorie est différent de X ou Y!(@IsMember("[Direction]";@UserRoles) | (@IsMember("[VVVV]";@UserRoles) & (categorie!=X | categorie!=Y)))Phi.
phi
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar François » 25 Juil 2003 à 10:04

Bonjour,J'ai également un petit soucis de cet ordre, est-ce que cela cache les champs dans les propriétés du doc dans une vue?François
François
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar phi » 25 Juil 2003 à 10:09

Salut,Non malheureusement, les formules de masquage ne permettent pas de cacher les champs dans les propriétés du document (que ce soit dans une vue ou ailleurs...)Phi.
phi
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar François » 25 Juil 2003 à 10:21

MerciMais y a t-il alors une solution acceptable pour rendre inaccessible une partie d'un doc car contenant des données sensibles.Je veux en fait donner l'accès à tout le monde à des données de base concernant le personnel (nom, service, photo) à des données plus sensibles pour les responsables (Tâche, date entrée,..) et à des données encore plus sensibles pour le responsable direct (adresse, tél privé)Toutes les données devraient être dans le même doc.MAIS je ne vois pas comment protéger les champs à l'extérieur du masque pour garantir la confidentialitéLe cryptage ne me semble pas adaptéMerciFrançois
François
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar phi » 25 Juil 2003 à 14:32

Re,J'ai déjà rencontré un problème similaire et j'ai utilisé deux masques :- un premier pour la visualisation contenant les données non-sensibles + des textes calculés pour visualiser les données sensibles- un second contenant les données sensibles avec accès restreint et visible dans aucune vueC'est une solution pas très jolie mais je n'avais pas d'autre idée...Avis à la population : qui trouvez une solution le crie très fort, merci.Phi.
phi
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar PhilippeG » 25 Juil 2003 à 15:29

Bonjour,J'a
PhilippeG
 

Re: Section à accès controlée (URGENT !!!!!!!)

Messagepar PhilippeG » 25 Juil 2003 à 15:59

Désolé petite fatigue de fin de semaineTu peux crypter tes champs en ajoutant un nombre quelconque à la valeur ascii de chaque lettre du contenu du champ à crypter puis tu remplace la valeur de ce champ par la nouvelle chaine obtenue avec un code de ce typeCela devrait suffisament brouiller les pistes Pour décrypter les champs tu crées un bouton qui fait l'opération inverse (normalement tu devrait retrouver la valeur de départ). Il ne te reste plus qu'a masquer ton bouton de décryptage en fonction des rôles de tes utilisateursVoila 2 exemples de codes de cryptage et decryptage pour te donner une piste (Attention ils ne sont pas testés).A adapter à ton besoin bien surPublic Function Encrypt (xnom As String ) As String sEncryptedString ="" Code% = 5 TailleNom% = Len(xnom) For n = 1 To TailleNom% lettre = Mid$(xnom, n, 1) newlettre = Asc(lettre) + Code NewString = Chr$(newletter) EncryptedString = EncryptedString & NewString Next n'Return a crypted text to calling function. Encrypt = sEncryptedString End Function Public Function Decrypt (Liste As NotesItem ) As Variant Code = 5 Dim Itemdec As NotesItem Dim Tabcrypt As Variant Tabcrypt = Liste.values Dim Tabdec As Variant Redim Tabdec (Ubound(Tabcrypt)) As String For i = Lbound(Tabcrypt) To Ubound(Tabcrypt) Text = Tabcrypt (i) TailleNom% = Len(Text) DecryptedString ="" For n = 1 To TailleNom% Letter = Mid$(sText, n, 1) newletter = Asc(Letter) - Code NewString = Chr$(newletter) DecryptedString = DecryptedString & NewString Next n Tabdec(index)= DecryptedString Next i Decrypt = Tabdec End Function
PhilippeG
 


Retour vers Développement

cron