Ограничение документа Word при разрешении VBA

Question

Я надеюсь ограничить редактирование в текстовом документе, чтобы пользователи могли только заполнять формы.Я установил параметр Ограничить редактирование соответственно.Однако, в зависимости от параметров, выбранных в некоторых полях со списком в форме, существует код VBA для добавления дополнительных элементов управления на странице.Когда у меня включено ограничение, VBA, который запускается при определенном выборе, не запускается и выдает ошибку «Команда недоступна».Есть ли способ ограничить все, кроме элементов управления содержимым, переключателей и полей со списком, для пользователей-пользователей документа и позволить коду VBA работать свободно, манипулируя форматом документа без ограничений?Спасибо за любую помощь!

Answer 1

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

Dim lProt As Long: Const Pwd As String = "Password"
With ActiveDocument
  If .ProtectionType <> wdNoProtection Then
    lProt = .ProtectionType
    .Unprotect Password:=Pwd
  End If
  'insert your code for content control additions here
  If lProt <> wdNoProtection Then .Protect Type:=lProt, NoReset:=True, Password:=Pwd
End With