Lotus Notes - como cancelar documentos

hola
Podrán ayudarme para cancelar algun documento que ya no se pueda editar, una vez que se decida cancelar ya no se pueda usar el documento.

Saludos

podrias escribir un codigo en el evento QueryOpen (cuando se intenta abrir el documento directamente en modo edicion) y otro codigo en el evento QueryModeChange (cuando se quiere pasar de estado lectura a edicion), y en ese codigo que pregunte si el documento esta cancelado ... y no deje abrirlo o cambiar de estado, por ejemplo:

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

Dim doc As Notesdocument
Set doc = source.Document

If doc.Estado(0) = "Cancelado" Then
Msgbox "El documento se encuentra cancelado, no se puede modificar" , 64, "Atencion"
Continue = False
End If

End Sub

Saludos