Защита документа word от распечатывания и копирования

[Святой Дьявол]

Доброго времени суток! на днях мне понадобилось защитить вордовский документ от печати и копирования, встал вопрос как это лучше сделать. решил попробовать с помощью макросов, написал макросы которые запрещают копирование и вырезание текста а так же печать документа. все работает, но только если в настройках стоит низкий уровень безопасности, выход нашел, в excel создал кнопку которая открывает вордовский документ и тогда в нем все макросы работают(независимо от того какой уровень безопасности стоял первоначально), а для того чтобы сам вордовский документ нельзя было открыть поставил в нем пароль на открытие и тут возникла проблема, excel отказывается открывать документ

Dim WordObj As Object
Dim WordDoc As Object
Set WordObj = CreateObject("Word.Application")
Set WordDoc = WordObj.Documents.Open("c:1.docm", False, True, False, "пароль", Missing.Value, True, Missing.Value, Missing.Value, Missing.Value, Missing.Value, False, 
False, Missing.Value, Missing.Value, Missing.Value)
WordObj.Visible = True

справка в word:

Function Open(FileName, [ConfirmConversions], [ReadOnly], [AddToRecentFiles], [PasswordDocument], [PasswordTemplate], [Revert], [WritePasswordDocument], [WritePasswordTemplate], [Format], [Encoding], [Visible], [OpenAndRepair], [DocumentDirection], [NoEncodingDialog], [XMLTransform])

помогите разобраться в чем ошибка...

[viter.alex]

Путь к файлу указан неправильно
нужно "c:\1.docm"

[Святой Дьявол]

Сообщение от viter.alex

Путь к файлу указан неправильно
нужно "c:\1.docm"

это моя опечатка..и тем не менее не работает

[viter.alex]

Что это за параметры Missing.Value? Если вы их не используете, то просто напишите вызов так:

Set WordDoc = WordObj.Documents.Open("c:1.docm", ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="пароль")

[Святой Дьявол]

Спасибо, все работает
Товарищи программисты покритикуйте защиту ворда
например для запрета копирования использую макрос с названием ЕditCopy тем самым заменяя стандартную команду копирования

Sub EditCopy()
'
 MsgBox ("команда не активна")
End Sub

и так по всем командам которые нужно закрыть
пытаюсь так же закрыть команду "сохранить как" но не могу заблокировать выпадающий список с выбором формата сохранения...может подскажете как это сделать

[viter.alex]

А что критиковать? Стоит открыть Excel, посмотреть пароль и можно спокойно открыть документ с теми настройками безопасности, которые нужны. И без всяких макросов. Да и пароли ломаются на раз.

Эта тема уже обсуждалась. Если вы не хотите, чтобы ваш документ печатали и копировали, то пользуйтесь pdf. Он тоже ломается, но немного сложнее.

О каком выпадающем списке идет речь? Что-то я не пойму

[Святой Дьявол]

да, но в excel пароль будет храниться в макросе, а взломать макрос намного сложнее чем сам excel. сохранение в .pdf это не вариант т.к. его можно сломать за несколько минут. по поводу выпадающего списка, если в word 2007 навести курсор на "сохранить как", то появится окно "сохранить копию документа", хотелось бы его заблокировать, но пока что не придумал как((

[viter.alex]

Sub FileSaveAs()?

[Святой Дьявол]

Сообщение от viter.alex

Sub FileSaveAs()?

данный макрос срабатывет только при нажатии на "сохранить как", а если на него просто наверсти курсор и подождать, то откроется меню "сохранить копию документа" и сохранение будет возможно

[viter.alex]

FileSaveAsOtherFormats ловит
FileSaveWord11 ловит
FileSaveWordDocx ловит
FileSaveWordDotx ловит