О чем этот текст?
Начал размещать конфиденциальную информацию в Lotus? Сразу встал вопрос регулирования доступа. С одной стороны все пользователи могут знать, что некий документ(строка во View) таки существует, но открыть его без соответствующих прав было бы невозможно. Допустим есть группа Gods. Все кто в неё входят, имеют право просматривать документ. Для этого в событии QueryOpen формы, используй код:
Основная часть
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If(source.IsNewDoc)Then
'Если новый документ, то ничего не проверяем
continue=True
Else
Dim session As New notessession
Dim doc As NotesDocument
Set doc = source.Document
Dim result As Variant
result = Evaluate({@Contains(@UserNamesList;"[Gods]")})
If(result(0)=1)Then
'Если входишь в группу Gods, то входи
Continue=True
Else
'Иначе
Messagebox "Доступ к этому документу имеют только пользователи группы Gods", 0, "Доступ ограничен"
continue=False
End If
End If
End Sub
Примечание: Может использование @-формул в Lotus Script и считается моветоном, но это рабочее решение проблемы на скорую руку.
Автор: Joe1000
Ссылки:
К содержанию