Блокировка элемента управления содержимым посредством макроса

03.03.2019, 09:36. Показов 1186. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всем доброе, утро!
Столкнулся со следующей проблемой.
Имеется word файл в котором разрешен ввод данных в поля форм. После заполнения указанных полей необходимо защитить их от возможности редактирования.
Через макрорекордер записал последовательность действий, которые это собственно и делают.
Макрорекордер выдал следующий код:

Visual Basic
1
2
3
4
Sub Макрос2()
    Selection.WholeStory
    Selection.ParentContentControl.LockContents = True
End Sub

Учитывая, что при защищенном документе макрос не работает, то пришлось его немного дополнить. Получилось следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос3()
Set aDoc = ActiveDocument
If aDoc.ProtectionType <> wdNoProtection Then
    aDoc.Unprotect Password:="123"
    Selection.WholeStory
    Selection.ParentContentControl.LockContents = True
    aDoc.Protect Type:=wdAllowOnlyRevisions, Password:="123"
End If
End Sub

И все бы хорошо, но не макрос записанный макрорекордером, ни мной дополненный макрос при запуске не работают. VBA выдает ошибку Run-time error "91": Object variable or With block variable not set. Желтым выделяется строка:

Visual Basic
1
Selection.ParentContentControl.LockContents = True

Прошу помощи в разрешении данного казуса.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

03.03.2019, 09:36

Ответы с готовыми решениями:

После разрыва ячеек посредством макроса меняется шрифт в ранее связанных ячейках
Добрый день! Помогите пожалуйста с проблемой: После разрыва ячеек посредством макроса меняется шрифт в ранее связанных ячейках. ...

Перенос текста из элемента управления одной формы на элемент управления другой
Здрасте, нужна помощь!) Мне нужно чтобы когда я ввожу в поле Text какую либо запись в одной форме и при нажатии на кнопку оно...

Обмен содержимым файлов посредством дополнительного файла
Здравствуйте. Прошу помощи, потому что нету идей совсем Даны файлы F1, F2, F3, F4, F5, компоненты которых являются вещественными...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

03.03.2019, 09:36

Помогаю со студенческими работами здесь

Зависимые элементы управления содержимым
Добрый день, господа, есть следующая задача: в Word имеется возможность вставлять экспресс-блоками свойства документов. Их ограниченное...

Создать меню для управления содержимым файла
Вообщем надо написать програмку на турбопаскале создать меню через case. там будет два пункта: 1.Дописывание в файл что-нибудь, если...

Блокировка записи через VBA посредством ADODB
Здравствуйте. Всё в базе работает через VBA (Select, Update, формы и т.д.). Решил проверку записи на изменение сделать через блокировку...

Как обновить подчиненную форму посредством макроса?
Как обновить подчиненную форму через макрос? В Access разбираюсь слабо. Кнопку сделать и навесить на нее макрос способен. Не хочется...

Запуск системный програм посредством макроса Access
Запуск системный програм посредством макроса

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Наверх