1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Lotus - Программирование", создана пользователем root, 10 апр 2007.

Статус темы:
Закрыта.
  1. root

    root Гость

    Репутация:
    0
    Как запретить редактирование через Ctrl-E. Срочно надо.
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    В смысле открывать документ на редактирование из представления по ctrl-e?
    Тогда можно в QueryOpen документа прописать:
    If Mode = 1 Then Continue = False

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

    root Гость

    Репутация:
    0
    Для: Medevic
    Спасибо. Что то в спешке не сообразил.
     
  4. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    30 май 2006
    Сообщения:
    1.323
    Симпатии:
    4
    Бредятина... Точнее - "бантик". Возможно, он и нужен. Но он не помешает юзеру отредактировать док-т другим способом.
    Если нужна настоящая защита - смотрите в сторону AUTHORS-полей
     
  5. root

    root Гость

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

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Для: 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
     
  7. K-Fire

    K-Fire Гость

    Репутация:
    0
    А можно вопрос, зачем вообще запрещать пользователю редактировать документ по Ctrl-E ?
     
  8. root

    root Гость

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

Поделиться этой страницей