Запрет печати паролем

vserg4 · 16 янв 2007, 22:47

Здравствуйте. Подскажите, пожалуйста, как в Word-овском документе запретить копирование текста и вывод текста на печать.

Aent · 16 янв 2007, 23:03

Для этой цели нужно использовать не Word а PDF (Cм. посты на этом форму).
И всё равно при большом желании всегда можно скопировать или распечатать
документ.

Кстати 8-й Finereader от ABBYY прекрасно распознаёт текст с экрана ...

vserg4 · 16 янв 2007, 23:09

Aent писал(а):Для этой цели нужно использовать не Word а PDF (Cм. посты на этом форму).
И всё равно при большом желании всегда можно скопировать или распечатать
документ.
Кстати 8-й Finereader от ABBYY прекрасно распознаёт текст с экрана ...

В том то и дело, что требуют в Wordе, а там 150 страниц текста, очень уж не хочется просто так отдавать.

Игорь Акопян · 18 янв 2007, 01:36

если это авторский текст - можно поступить стандартно - отправить себе заказным письмом с уведомлением о вручении. Там будет стоять дата, посылку не вскрывать, в случае чего - в суде будет серьёзный аргумент.

vserg4 · 18 янв 2007, 10:38

Игорь Акопян писал(а):если это авторский текст - можно поступить стандартно - отправить себе заказным письмом с уведомлением о вручении. Там будет стоять дата, посылку не вскрывать, в случае чего - в суде будет серьёзный аргумент.

Требуют в электронном виде, и есть подозрение, что скинут на лево.
Поэтому и хочу, именно для этого документа поставить запрет на копирование текста, и на печать.
Неужели через Vba никак нельзя запретить?

Genyaa · 18 янв 2007, 12:50

Защитить докуменет в Ворде от печати можно немного... но довольно слабо...

Например, можно сделать так (для начала, во всяком случае)

1. Создать в VBA модуль класса под именем EventClass (Редактор VBA-Menu-Insert-Class - F4 - в окне свойств установить имя - EventClass)
2. В окне этого модуля класса написать следующее:

Код: Выделить всё

Public WithEvents AppWord As Word.Application

Private Sub AppWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
        If Doc Is ThisDocument Then
            MsgBox "Нельзя печатать этот документ!"
            Cancel = True
        End If
End Sub

3. В молуле самой книги написать следующее:

Код: Выделить всё

Dim X As New EventClass

Private Sub Document_Open()
    Set X.AppWord = Word.Application
End Sub

4. Сохранить, закрыть и открыть (с активными макросами)

Если все сделано верно, то любая попытка печати документа будет перехватываться и отменяться.

Последующими шагами я бы предложил сделать:
- менять цвет или видимость (скрытый) шрифта при открыти, сохранении так, чтобы если документ открывается без активных макросов шрифт был бы белый (под цвет бумаги) или невидимый, но при активных макросах при открытии эти макросы делали бы шрифт автоматически видимым (или нужного цвета)
- защитить книгу от сохранения изменений
- защитить модули VBA от доступа
- перехватывать события выделения, копирования и изменения подобно тому, что я предложил выше.

Aent · 18 янв 2007, 22:54

Genyaa,

перехватывать события выделения, копирования и изменения подобно тому, что я предложил выше

Вашим способом копирование не перехватишь.
Так как работа с Clipboard реализована на уровне Windows - запретить её из
Word c разумными трудозатратами (без написания перехватчиков клавиатуры и системных вызовов) полагаю невозможным.
А возможность копирования (в.т.ч. внешними программами) делает совершенно бессмысленным перехват печати.

Aent · 18 янв 2007, 23:02

vserg4, ваша задача принципиально не решается с использованием любых программных средств. Если документ отчуждается - нет проблемы вывести его на большой ЖК экран, сфотографировать цифровой камерой и распознать в Word, используя программу OCR (b.e. - тот же FineReader). Практика показывает, что на 200 страничный документ уходит около 4 часов работы

Word же в принципе не даст Вам возможности защитить от копирования читаемый документ.
Резюме: Такие проблемы решаются только через суд. Поддерживаю предложение Игорь Акопян.

Genyaa · 18 янв 2007, 23:33

Aent писал(а):Genyaa,
Вашим способом копирование не перехватишь.
Так как работа с Clipboard реализована на уровне Windows - запретить её из
Word c разумными трудозатратами (без написания перехватчиков клавиатуры и системных вызовов) полагаю невозможным.
А возможность копирования (в.т.ч. внешними программами) делает совершенно бессмысленным перехват печати.

Копирование может быть и не перхватишь ... это верно... но выделение текста перехватить можно с легкостью, а значит и ограничить копирование текста в буфер... например, можно сбрасывать любое выделение одной и более букв до нулевого количества букв в выделении (просто поставить Collapse в WindowSelectionChange)...

Впрочем, это понятно, как я и сказал сначала, что защита это слабенькая... для маленького заварочного чайничка...

vserg4 · 19 янв 2007, 13:47

Genyaa писал(а): Последующими шагами я бы предложил сделать:
- менять цвет или видимость (скрытый) шрифта при открыти, сохранении так, чтобы если документ открывается без активных макросов шрифт был бы белый (под цвет бумаги) или невидимый, но при активных макросах при открытии эти макросы делали бы шрифт автоматически видимым (или нужного цвета)
- защитить книгу от сохранения изменений
- защитить модули VBA от доступа
- перехватывать события выделения, копирования и изменения подобно тому, что я предложил выше.

А можно немного по подробнее про эти шаги.