Wie kann man denn das mit ACL-Gruppen umsetzen ???
Ich würde das mit einer ACL-Rolle und im Datenbankscript, beim Ereignis Postopen mit dieser Formel realisieren:
@If( @UserRoles*="[KeinNotes]"; @Command([CloseWindow]);"" )
hab' da was in meiner Schatzkiste gefunden:
Die Rolle "[BlockNotesZugriff] zur ACL hinzufügen und im Postopen des DB-Scripts folgendes:
Sub Postopen(Source As Notesuidatabase)
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = ws.CurrentDatabase
Dim sess As New NotesSession
Dim entry As NotesACLEntry
Dim acl As NotesACL
Dim roleName As String
Dim foundRole As Variant
Set db = sess.CurrentDatabase
Set acl = db.ACL
roleName = "[BlockNotesZugriff]"
foundRole = False
' ist die Rolle in der DB vorhanden
Forall r In acl.Roles
If ( r = roleName ) Then
foundRole = True
Exit Forall
End If
End Forall
If foundRole Then
Dim userRoles As Variant
userRoles = Evaluate(|@UserRoles|)
Forall role In userRoles
If role = "[BlockNotesZugriff]" Then
Msgbox "Diese Anwendung ist nur für Zugriffe per Browser vorgesehen",48,"Zugriffsfehler"
Call uidb.Close
Exit Forall
End If
End Forall
End If
End Sub