Userrollen abfrage in Script ?

[FC]

Hallo zusammen,
da ich gerade nen Brett vorm Kopf habe  benötige ich mal kurze Schützenhilfe.

Gibt es nen einfaches Äquivalent in Script zu :@Contains(@UserRoles; "Editor") 

Würde gerne in Script im Postopen Event prüfen ob der Benutzer eine bestimmte Rolle hat, damit er das Doc bearbeiten darf.

Alles was ich in der Hilfe gefunden habe scheint eine langes Script zu werden, gibt es da nichts kurzes ?
THX
FC

[Thomas Schulte]

Doch, Evaluate.

[robertpp]

Hier mal ein kurzes Srcipt:

Das ins Postopen
   If RoleEnabled("[admin]") Then
      Continue = True
      Exit Sub
   Elseif RoleEnabled("[Group User]") Then
      Continue = True
      Exit Sub
   End If
Msgbox "You don't have permission to edit this document.", 0 + 16, "No Access"
   Continue = False

Das in eine Library:


Function RoleEnabled(sRole As String) As Integer
   Dim HasRole As Variant
   HasRole = Evaluate(|@IsMember("| & sRole & |"; @UserRoles)|)
   If HasRole(0) = 1 Then
      RoleEnabled = 1
   Else
      RoleEnabled = 0
   End If   
End Function

Wie Thomas auch schon gesagt hat verwendest du dabei Evaluate

[FC]

THX,
das war flott 

Werds gleich mal testen.

Vielen Dank
FC

[FC]

Funzt gut, nochmal Danke.