attemp to edit document
for Lotus Formula
for Lotus Notes
Function attemptToEditDoc(uidoc As NotesUIDocument) As Boolean
uidoc.EditMode = True
' that uidoc.EditMode stays in False means current user cannot edit this document
attemptToEditDoc = uidoc.EditMode
End Function