By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
create. Only the author of a document is allowed to edit it.
This requires a hidden field in the document called "author". It is simply a
computed field of the author who composed the document.
In the QueryModeChange event, write the following code:
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim user As String
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
user = session.UserName
If user <> doc.Author(0) Then Msgbox("You do not have permission to edit this
document. Only the original author may edit a document.")