Как сделать блокировку документа если он открыт у кого нибудь.

 

Lock использовать, это если 6ка и выше

 

Например вот так:

Sub Initialize 
Dim ws As New NotesUIWorkspace 
Dim session As New NotesSession 
Dim db As NotesDatabase 
Dim doc As NotesDocument 

Set db = session.CurrentDatabase 
Set doc = db.CreateDocument 
Call doc.ReplaceItemValue("Form", "My Form") 
If db.IsDocumentLockingEnabled Then 
Call doc.Save(True, False, True) 
Call doc.Lock 
End If 
Call ws.EditDocument(True, doc) 
End Sub

 

Как сделать блокировку документа если он открыт у кого нибудь.

Если открыт, то и заблокирован тоже - используется временная блокировка.
Lock - это для постоянной блокировки: что открыт, что закрыт документ - все равно его редактировать может только тот, кто заблокировал.
При этом, если блокировка для базы включена, то и из меню этот пункт доступен - не обязательно лотусскрипт применять. Если же выключена - никакой скрипт все равно не поможет.