1 Тема от Nataliya

  • Nataliya
  • сержант
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 03.09.2014
  • Сообщений: 21
  • Поблагодарили: 2

Тема: Как добраться средствами VBA до настроек в MS Word?

Задача такая, мне нужно через VBA осуществление проверки на то, чтобы при открытии документа (то-бишь это процедура "Document_Open()") была проверка и в зависимости от этого установлены соответствующие галочки в:
Параметры Word –> Центр управления безопасностью –> Параметры центра управления безопасностью –> Параметры макросов.

Post's attachments

01.PNG 24.19 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.
Ищу соратников по программированию

2 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171
  • За сообщение: 1

Re: Как добраться средствами VBA до настроек в MS Word?

Nataliya пишет:

Задача такая, мне нужно через VBA осуществление проверки на то, чтобы при открытии документа (то-бишь это процедура "Document_Open()") была проверка и в зависимости от этого установлены соответствующие галочки в:
Параметры Word –> Центр управления безопасностью –> Параметры центра управления безопасностью –> Параметры макросов.

Доступ к VBA - проекту можно узнать путем создания объекта-копии, напр:

Sub VB_Project_allowed()
On Error Resume Next
Set VBP = ActiveDocument.VBProject
If err.Number <> 0 Then
    MsgBox "VB Project is not accessible"
End If
On Error Resume Next
End Sub

То есть, если объект создается, то опция "Trust access to the VBA project object model" разрешена, если не создается - то не разрешена.

По поводу управления режимом исполнения макросов:  попробуйте изучить свойство AutomationSecurity объекта Automation. Напр, так:

Sub WordMacroSAecurityLevel()
Dim sl As Variant
Dim msg As String
sl = Application.AutomationSecurity
Select Case sl
    Case msoAutomationSecurityForceDisable
        msg = "Macros are disabled in all files opened programmatically"
    Case msoAutomationSecurityLow
        msg = "Macros are enabled"
    Case msoAutomationSecurityByUI
        msg = "Macros run as security setting are specified in the Security dialog box"
    Case Else
        msg = "Unknown macro security option is determined :)"
End Select
MsgBox msg
End Sub

Подробнее здесь:
внешняя ссылка

Еще вроде этим можно управлять через реестр (ключ HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\Security):  комментарий здесь, в конце страницы -
внешняя ссылка

Сайтyshindin