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.")