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

[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)

[Blitz]

Hallo,

vielen Dank für den Hinweis. Habe es getestet und war wie von Dir beschrieben!

Werde mal den beitrag lesen

Gruss

Sascha