Иногда возникает необходимость защитить документ от печати, копирования содержимого или просто от доступа пользователя к некоторым функциям. Для этого применяются различные форматы (всем известная фирма Adobe), различный программный код и т.д. Документы Microsoft Office для этого не предусмотрены. Но защиту организовать довольно просто через макросы. Для этого надо необходимо знать всего несколько принципов ...
Работа с Word или как защитить ваш документ от копирования информации или печати?
Иногда возникает необходимость защитить документ от печати, копирования содержимого или просто от доступа пользователя к некоторым функциям. Для этого применяются различные форматы (всем известная фирма Adobe), различный программный код и т.д. Документы Microsoft Office для этого не предусмотрены. Но защиту организовать довольно просто через макросы. Для этого надо необходимо знать всего несколько принципов:
1. Автоматически запускаемые макросы Если присвоить макросу специальное имя, то Word будет выполнять его автоматически.
Имя макроса
Когда выполняется
AutoExec
При каждом запуске Word или при загрузке глобального шаблона
AutoNew
При каждом создании нового документа
AutoOpen
При каждом открытии существующего документа
AutoClose
При каждом закрытии документа
AutoExit
При каждом закрытии Word или выгрузке глобального шаблона
2. Модификация команд Word Большинство команд Word разрешается модифицировать, заменяя их макросами. В Word процедура, имя которой совпадает с именем встроенной команды (внутреннее имя) или процедура с именем Main в модуле, имя которого совпадает с именем встроенной команды, заменяет собой соответствующую встроенную команду во всех меню на то время, пока доступен содержащий ее модуль. Например, если вы создадите макрос с именем FilePrint, то при вызове окна печати через меню, через панель инструментов или при нажатии Ctrl+P, будет вызываться ваш макрос и ваш код, который будет прописан внутри макроса. Посмотреть имена команд можно через Вид -> Панели инструментов -> Настройка (кнопка "Клавиатура").
3. Работа с меню В Word, как и в Access можно создавать (редактировать) свои меню, панели инструментов, разрешать или запрещать доступ к элементам меню или панелей инструментов, создавать и удалять свои собственные меню и панели инструментов. Следующая команда делает недоступным пункт меню "Файл":
CommandBars("menu bar").Controls("файл"). Visible = False Можно программно добавлять, редактировать и удалять элементы меню и панели инструментов, создавать свои меню и панели инструментов.
Примечание: для получения полной информации об этих методах обратитесь к справочной информации.
Применяя вышеуказанные комбинированные методы можно создать код, который заменяет команды Копирования, Вырезания, Печати на свой программный код. Но все эти методы работают, когда включены макросы, при отключении макросов защита уже не работает. Но есть один простой выход: нужно вспомнить об одной замечательной особенности Microsoft Office - Автоматизация. Другими словами любое приложение Microsoft Office может работать с Word и наоборот. Для выполнения защиты просто необходима внешняя программа или приложение, которое будет запускать Word, например Access и в этом случае НЕ СПРАШИВАЕТСЯ диалоговое окно на запрет макросов, а защита срабатывает!!!
Простейший код для открытия Word из Access (чтобы Word был доступен из других приложений через Автоматизацию нужно, прежде всего, создать ссылку на библиотеку типов Word):
Dim objword Dim Object Dim objword = Dim("Word.Application") 'делаем видимым приложение Word objword.Visible = True 'для создания нового документа применяется метод Add 'objword.Documents.Add ' а для открытия метод Open (например, открывается шаблон с кодами защиты 'или документ, основанный на этом шаблоне и в этом случае НЕ 'СПРАШИВАЕТСЯ диалоговое окно на запрет макросов, а защита срабатывает!!!!! objword.Documents.Open ("c:мои документыPrintNo.dot") 'или открывается любой другой документ, созданный на основе шаблона с защитой.
'Можно объявить объектную переменную и по-другому (например для Word97): Dim objword as Word.Application.8 Set objword=CreateObject ("Word.Application.8)
Примечание: В прилагаемых двух шаблонах по-разному реализованы некоторые функции: * PrintNo.dot - делаются недоступными некоторые меню и элементы панели инструментов, заменены стандартные функции на свой код. * PrintFalse.dot - строка меню и панели инструментов полностью скрыты, заменены стандартные функции на свой код. * CloseAll - делается недоступными некоторые меню и … Запуск Word осуществляется с помощью файла OpenWord.mdb (в формате Access97), который свободно конвертируется в другие форматы. По умолчанию разархивировать в папку c:Мои документы
Коментарии (14)