Приветствую всех! Подскажите, пожалуйста, как к документу можно применить полномочия? Установлен Office 2013 + RMS.

• По оф. доке пытаюсь разобраться с полномочиями:
• Код: vbnet

  1.
  2.
  3.
  4.
  5.
  6.
  7.
  8.
  9.
  10.
  11.
  12.
  13.
  14.
  15.
  

• Sub SetPermission()
• Dim irmPermission As Office.Permission
• Dim objUserPerm As Office.UserPermission
Set irmPermission = ActiveDocument.Permission If irmPermission.Enabled Then irmPermission.RemoveAll End If Set objUserPerm = ActiveDocument.Permission.Add("RMSCreator@company.com", msoPermissionRead + msoPermissionEdit) MsgBox "Permissions added for " & objUserPerm.UserId, vbInformation + vbOKOnly, "Permissions Added" Set objUserPerm = Nothing Set irmPermission = Nothing End Sub

AkinaНу как минимум замените ActiveDocument на ThisDocument
Спасибо за замечание. Принял к сведению и исправил.

Тем не менее ситуация не разрешилась. Поэтому возник следующие вопросы:
1. Допустим у меня есть шаблоны правил, каким образом мне их добавить к документу в коде VBA?
2. Обязательно ли мне использовать шаблоны правил для того, чтобы выполнить irmPermission.Enabled = True ?

Кстати, в меню Защита документа -> Ограничить доступ содержатся эти самые шаблоны?

Surrogateссылка не открывается ! намекните хоть по какому слову гуглить :)Это сарказм?