Domino 9 und frühere Versionen > ND7: Entwicklung
USERrolle [Admin] in Lotus Script
Blitz:
Hallo,
habe die Bearbeitung von Dokumenten in der maske für alle User gesperrt.
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc=source.Document
If Not isnewdoc Then
Messagebox ("Dieses Dokument befindet sich im Lesemodus. Änderungen sind nur über den Butten 'Rückantwort' möglich!")
continue=False
End If
End Sub
Funktioniert auch super.
Allerdings möcht ich die User der Userrolle [ADMIN] hiervon ausnehmen.
Die Formel kenne ich! @If (@Contains(@UserRoles ; "[Admin]");0;1)
Wie mache ich das aber in Lotus Script? Muss es je oben einbauen?
Vielen Dank.
Gruss
Sascha
jBubbleBoy:
Ich hab mir mal dafür eine Funktion geschrieben:
--- Code: ---Function isRoleEnable( Role$, db As notesDatabase) As Integer
Dim doc As notesDOcument
Dim Macro$, u
isRoleEnable = False
Macro$ = |@isMember("| & Role$ & |";@UserRoles) |
If db Is Nothing Then
u = Evaluate (Macro)
Else
Set doc = db.createDocument
u = Evaluate (Macro$, doc)
End If
If u(0) = "1" Then isRoleEnable = True
End Function
--- Ende Code ---
eknori:
Ein Blick in die DesignerHilfe :
IsRoleEnabled method der Notes ACLEntry class ist mein Woodoo für so etwas ...
Blitz:
Vielen dank.
Genau diese Funktion habe ich gesucht.
IsRoleEnabled method
Funktioniert!
Gruss Sascha
koehlerbv:
Sascha, das funktioniert NICHT! Das, was Du da machst, ist eine Sperre für Dummuser - und nur für diese!
Nimm Dir einen Nicht-Admin-User, und drücke dann Strg-B (oder Menü: Bearbeiten - Dokument oder ...), und Du wirst sehen, dass QueryModeChange da gar nicht ausgeführt wird.
Im Bord "Best Practices" findest Du hierzu auch noch einen ausführlicheren Beitrag, aber beachte dabei bitte auch das einleitende Kapitel: Mit der puren Nutzung der Events erzeugst Du KEINE wirkliche Sicherheit bei der Verhinderung des Editierens von Dokumenten durch nichtautorisierte Personen!
Bernhard (weit in Deutschlands Norden im Urlaub)
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln