Как запретить редактирование через Ctrl-e

[root]

Как запретить редактирование через Ctrl-E. Срочно надо.

 

[Medevic]

В смысле открывать документ на редактирование из представления по ctrl-e?
Тогда можно в QueryOpen документа прописать:
If Mode = 1 Then Continue = False

Если в документе запретить, то событие Querymodechange.

 

[root]

Для: Medevic
Спасибо. Что то в спешке не сообразил.

 

[Constantin A Chervonenko]

В смысле открывать документ на редактирование из представления по ctrl-e?
Тогда можно в QueryOpen документа прописать:
If Mode = 1 Then Continue = False
Если в документе запретить, то событие Querymodechange.

Бредятина... Точнее - "бантик". Возможно, он и нужен. Но он не помешает юзеру отредактировать док-т другим способом.
Если нужна настоящая защита - смотрите в сторону AUTHORS-полей

 

[root]

Для: Constantin A Chervonenko
у меня так все и завязано что док открывается на редактирования только по событиям, только вот ctrl-e упустил момент.

 

[morpheus]

Для: root
Ну попробуйте в NotesUIView class при QueryOpenDocument зделать обработку... если что просто не давать открыть документ

простой пример

(Declarations) Dim workArea As String 
Sub Postopen(Source As Notesuiview)	
workArea = Inputbox ("What is your work area?", _	
"Work area", "Marketing") 
End Sub 

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)	
Dim docs As NotesDocumentCollection	
Dim doc As NotesDocument	
Set docs = Source.Documents	
Set doc = docs.GetFirstDocument	
If Ucase (doc.Categories(0) ) <> Ucase (workArea) Then	 
Continue = False	
End If 
End Sub

 

[K-Fire]

А можно вопрос, зачем вообще запрещать пользователю редактировать документ по Ctrl-E ?

 

[root]

Для: K-Fire
первый раз когда документ создается он имеет окончательную форму, дальше он редактируется только событиями, нажатием на кнопку ,(Типа Добавить Читателя и тд и тп.) Вот я и закрыл доступ программно только вот ctrl-e непредусмотрел. забыл