Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 20.03.2017, 14:55   #1
DBEER
Форумчанин
 
Регистрация: 13.03.2014
Адрес: Киров-Вятка
Сообщений: 71
Репутация: 25
Вопрос Как запретить Юзеру лезть в колонтитулы?

Собственно, в subj всё и есть.. Ловится ли событие "вход в редактирование колонтитула"?
DBEER вне форума   Ответить с цитированием
Старый 03.04.2017, 09:52   #2
Борис_Р
Пользователь
 
Регистрация: 18.02.2013
Сообщений: 22
Репутация: 24
По умолчанию

Если не нашли ничего путного, попробуйте такой костыль.
Для всех колонтитулов активного документа вставить элемент управления содержимым "Группировать" (вкладка ленты "Разработчик", кнопка элемента управления находится под кнопками "Конструктор" и "Свойства" )
Код:

Sub HeadersFooters_Add_ContentControlGroup()
'Устанавливает для колонтитулов всех разделов активного документа свойство "Группировать..."
Dim s As Section, j As Long, cc As ContentControl
For Each s In ActiveDocument.Sections
    With s
    For j = 1 To 3
        .Headers(j).Range.Select
        Selection.WholeStory
       Set cc = Selection.Range.ContentControls.Add(wdContentControlGroup)
        cc.SetPlaceholderText , , " "
        .Footers(j).Range.Select
        Selection.WholeStory
        Set cc = Selection.Range.ContentControls.Add(wdContentControlGroup)
        cc.SetPlaceholderText , , " "
    Next j
    End With
Next s
Set s = Nothing
End Sub

После выполнения макроса при входе в редактирование колонтитула возникает событие документа ContentControlOnEnter, которое можно обработать.
Пример процедуры обработки
Код:

Private Sub Document_ContentControlOnEnter(ByVal cc As ContentControl)
MsgBox "Кто-то лезет в колонтиул"
End Sub

При попытке войти в колонтитул появится сообщение

Последний раз редактировалось Борис_Р; 03.04.2017 в 12:12.
Борис_Р вне форума   Ответить с цитированием
Старый 04.04.2017, 11:27   #3
Борис_Р
Пользователь
 
Регистрация: 18.02.2013
Сообщений: 22
Репутация: 24
По умолчанию

Вот несколько ссылок с описанием процедуры обработки событий приложения
Возможно, поможет решить задачу без костылей

Writing application event procedures http://wordmvp.com/FAQs/MacrosVBA/AppClassEvents.htm

Intercepting events like Save and Print http://wordmvp.com/FAQs/MacrosVBA/In...tSavePrint.htm

Run Macro on Cell Lost Focus http://www.msofficeforums.com/word-v...ost-focus.html
Борис_Р вне форума   Ответить с цитированием
Старый 16.04.2017, 17:26   #4
Вождь
Форумчанин
 
Аватар для Вождь
 
Регистрация: 29.09.2008
Сообщений: 358
Репутация: 180

icq: 397882017
По умолчанию

Цитата:
Сообщение от DBEER Посмотреть сообщение
Как запретить Юзеру лезть в колонтитулы?
Ловится ли событие "вход в редактирование колонтитула"?
Это два разных вопроса. Запретить довольно просто, используя стандартный инструмент "Ограничение редактирования".
__________________
Макросы на заказ и готовый пакет - mtdmacro.ru
Вождь вне форума   Ответить с цитированием
Старый 26.04.2017, 16:56   #5
DBEER
Форумчанин
 
Регистрация: 13.03.2014
Адрес: Киров-Вятка
Сообщений: 71
Репутация: 25
По умолчанию Вождю:

А в 2003м это возможно? Я не нашел в Сервис->Защита документа
DBEER вне форума   Ответить с цитированием
Старый 26.04.2017, 17:32   #6
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,800
Репутация: 5909
По умолчанию

Как это? Сервис->Защитить документ
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 26.04.2017, 17:58   #7
Вождь
Форумчанин
 
Аватар для Вождь
 
Регистрация: 29.09.2008
Сообщений: 358
Репутация: 180

icq: 397882017
По умолчанию

Цитата:
Сообщение от DBEER Посмотреть сообщение
...в 2003м...не нашел...
Word 2003 > меню «Сервис» > пункт «Защитить документ» > справа, появится панель «Защита документа» > где активируем флаг «Разрешить только указанный способ редактирования документа» > ниже, появится раздел «Исключения» > указываем что можно редактировать…
__________________
Макросы на заказ и готовый пакет - mtdmacro.ru
Вождь вне форума   Ответить с цитированием
Старый 02.05.2017, 17:30   #8
DBEER
Форумчанин
 
Регистрация: 13.03.2014
Адрес: Киров-Вятка
Сообщений: 71
Репутация: 25
По умолчанию Вождю

Chif, я пробую по написанному.
В выпадающем списке под "Разрешить только указанный.." вижу:
- Запись исправлений
- Примечания
- ввод данных в поля форм
- Только чтение
Ну, и ниже управление группами пользователей, кому назначены эти разрешения.
Не могу смекнуть, как здесь реализовать ограничение на редактирование КОЛОНТИТУЛОВ.
DBEER вне форума   Ответить с цитированием
Старый 02.05.2017, 18:02   #9
Вождь
Форумчанин
 
Аватар для Вождь
 
Регистрация: 29.09.2008
Сообщений: 358
Репутация: 180

icq: 397882017
По умолчанию

Цитата:
Сообщение от DBEER Посмотреть сообщение
Не могу смекнуть, как здесь реализовать ограничение на редактирование КОЛОНТИТУЛОВ.
Там нет отдельно колонтитулов. Там другой принцип: запрещаем редактировать весь документ, но указываем области, которые разрешено редактировать.

Это стандартный инструмент Word, популярно описанный. Найдите в справке Word, как им пользоваться. В двух словах не расскажешь.
__________________
Макросы на заказ и готовый пакет - mtdmacro.ru
Вождь вне форума   Ответить с цитированием
Старый 02.05.2017, 18:13   #10
DBEER
Форумчанин
 
Регистрация: 13.03.2014
Адрес: Киров-Вятка
Сообщений: 71
Репутация: 25
По умолчанию Вождю.

Благодарю. Буду рыть.
DBEER вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сначала изучить паскаль а потом лезть в delphi? xtreemxx Помощь студентам 16 12.09.2010 14:49
Как вставить в колонтитулы номер страницы раздела? EvgenAPS Microsoft Office Word 4 12.05.2010 11:30
Колонтитулы: как в предыдущем и поля Busine2009 Microsoft Office Word 7 06.08.2009 22:24
Как убрать колонтитулы на нужных страницах? Окоча Юра Microsoft Office Word 4 12.06.2009 21:38
Не дать Юзеру редактировать (как это сделать?) chugo Microsoft Office Access 3 26.02.2009 23:02




10:22.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru