Запрет на распечатку документов с чужого компьютера

Источник: wordexpert
Фнтон Конкин

Как можно поставить в Word запрет на распечатку через чужой принтер?
Свое решение этого вопроса представил Леонид Бродский, автор программы LeoBilingua. Он написал:

Я думаю, надо запретить не распечатку через чужой принтер, а распечатку с чужого компьютера. Я предлагаю простой, хоть и не очень надёжный способ определить "свой" компьютер - по имени пользователя, заданному в Word. Приведённый ниже VB код, хоть и можно обнаружить в редакторе Visual Basic, но в списке макросов он не виден, так как все процедуры объявлены как Private.

Делаем следующее. Защищаемый документ должен быть открыт в Word. Открываем редактор Visual Basic («Alt»+«F11»). В окне проектов щёлкаем правой кнопкой мышки по проекту, относящемуся к данному документу (в прилагаемом файле примера это проект CancelPrinting). Выбираем меню Insert -> Class Module. В окне свойств меняем имя класса, например на PrintController. В окне кода классового модуля PrintController набираем следующий код:

Option Explicit
 
Private WithEvents app As Word.Application
 
Public Property Set ApplicationObject(value As Word.Application)
    'установить ссылку на объект приложения
    Set app = value
End Property
 
Private Sub app_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    'проверить имя пользователя
    If app.UserName <> "Антон Кокин" Then
        'отменить печать
        Cancel = True
        Call MsgBox("Распечатка запрещена. Извините!", _
                vbExclamation + vbOKOnly, "Test")
    End If
End Sub

Заменяем текст "Антон Кокин" на своё имя, как оно задано в настройках Word.

Теперь в окне проектов дважды щёлкаем левой кнопкой мышки по модулю ThisDocument, находящемуся под проектом данного документа (в прилагаемом файле примера это CancelPrinting). Открывается окно кода этого модуля. Там набираем следующий код:

Option Explicit
 
Private controller As PrintController
 
Private Sub Document_New()
    'эта процедура работает при создании нового документа,
    'используя данный как шаблон
    SetPrintController
    MsgBox "Новый документ"
End Sub
 
Private Sub Document_Open()
    'эта процедура работает при каждом открытии документа
    SetPrintController
    MsgBox "Открыть"
End Sub
 
Private Sub SetPrintController()
    'установить ссылку на новый экземпляр класса
    Set controller = New PrintController
    'передать экземпляру класса ссылку на объект приложения
    Set controller.ApplicationObject = Word.Application
End Sub

Сохраняем документ.

Чтобы код начал работать, надо закрыть и опять открыть документ. Если же нужна большая безопасность, предлагаю заменить проверку имени на проверку предварительно созданного уникального ключа в регистре с помощью System.ProfileString. Надо будет также как-то защитить VB модули с помощью пароля.


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=9081