Как запретить Юзеру лезть в колонтитулы?

Posted by obzor under VBA

Как закрыть доступ пользователя к колонтитулам? Ловится ли событие «вход в редактирование колонтитула»?

Борис_Р

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

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

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

Вождь

Запретить довольно просто, используя стандартный инструмент «Ограничение редактирования».

Word 2003 > меню «Сервис» > пункт «Защитить документ» > справа, появится панель «Защита документа» > где активируем флаг «Разрешить только указанный способ редактирования документа» > ниже, появится раздел «Исключения» > указываем что можно редактировать…

тема на форуме

Похожие статьи

• Макрос пакетной конвертации docx в doc
• Как убрать висячие предлоги в Word?
• Shape в группе. Как понять в VBA, что выделена не просто группа, но и Shape (объект на группе)?
• Слияние для нескольких строк (VBA)
• Выделение цветом нескольких фрагментов текста