Hallo Leute,
ich möchte gerne das bearbeiten von Dokumenten unterbinden.
Hierfür habe ich folgenden Code genommen:
Sub Postopen(Source As Notesuidocument)
Dim szStatus As String
szStatus = source.FieldGetText("UserRoles")
'Wenn Doc im Lesemodus, dann Folgecode nicht beachten
If Source.EditMode = False Then Exit Sub
'Prüfe Statusfeld...
If Not szStatus ="[admin]" Then
Msgbox "The 'edit mode' is not allowed.", 64, "Error"
Source.EditMode = False 'Setze Dokument in Lesemodus
Exit Sub
End If
End Sub
und ein Feld Userroles in das Dokument eingebunden was ich mit
@UserRoles aber das Feld wird nciht mit der UserRole des Betrachters aktuallisiert.
Waran kann dies liegen????