запретить сделанные изменения

[npocmop]

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

[npocmop]

Подскажите насколько эффективен будет вариант и возможные обходы:

Sub FileSaveAs()
MsgBox "Копирование запрещено", vbCritical
Exit Sub
Dialogs(wdDialogFileSaveAs).Show
End Sub

[npocmop]

и как доработать этот код :
Private Sub Document_Open()
Const c_Pass$ = "pass"
With ThisDocument
If .ProtectionType = wdNoProtection Then ' проверка даты, если не наступила, то ничего
If Date <= CDate("14.11.2010") Then Exit Sub ' блокировка = переворот текста
.Range.Text = StrReverse(.Range.Text)
.Protect Type:=wdAllowOnlyReading = 1, Password:=c_Pass
.Save ' уже заблокирован
End If
' напоминание
If InputBox("XXX") <> c_Pass Then
.Close
Else
' разблокировка
.Unprotect Password:=c_Pass
.Range.Text = StrReverse(.Range.Text)
.Save
End If
End With
End Sub


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

[bdfy]

к слову а можно узнать чего вы вообще в конечно счете хотите добиться ?
пользовать получается документ под паролем - платит - получается пароль - работает. такая схема или что-то более изощренное хотите ?

[npocmop]

да, схема такая, просто хотелось уйти от защиты в виде окна ввода пароля - пока не получается..
Кодом Вождя удалось защитить документ, как и требовалось - с условием даты + подвесил потом код от копирования в др.формате, о котором и спрашивал выше.
Упёрся в то, что при 1 неправильном вводе пароля слетает формат документа и удаляются графики, таблицы (эффект как от ctrlC>ctrlV из htm в блокнот) и при повторном, уже правильном вводе пароля эти данные не восстанавливаются, то есть пользователю придется запрашивать новый документ, если он даже вводит потом правильный пароль..

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

[bdfy]

да, схема такая, просто хотелось уйти от защиты в виде окна ввода пароля - пока не получается..

как только документ откроется - защиту вы потеряете выкладывайте свои наработки - потестируем на взламываемость

[npocmop]

здесь почти полноценный небольшой отчет, с графикой, которая безвозвратно теряется после первого срабатывания StrReverse..
как правило интересен заказчику бывает расчет, 5-8 лисотв, которые легко скопировать через принтскрин, потом файнридером вернуть нормальный вид , от этого прекрасно подходит фунц. переворота
запрос пароля врубается после 15.11., пароль в коде указан, поэтому тут не во взламываемости дело, возможно файлу лучше и совсем удаляться после допустим 5 ошибки ввода пароля...
на vba пароль не ставил, протектvba не использовал

а про взламываемость очень интересные примеры у SAS888 в этой ветке

[Вождь]

Сообщение от npocmop

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

Private Sub Document_Open()

    On Error Resume Next
    
Const c_Pass$ = "пароль"
Const c_Date$ = "08.11.2010"
    
    With ThisDocument
        ' наличие блокировки
        If .ProtectionType = wdNoProtection Then
            ' введен пароль
            If .Variables(c_Pass) <> c_Pass Then Else Exit Sub
            ' дата
            If Date <= CDate(c_Date) Then Exit Sub
            ' блокировка
            .Range.Text = StrReverse(.Range.Text)
            .Protect Type:=wdAllowOnlyReading, Password:=c_Pass
            .Save
        ' уже заблоктрован
        Else
            ' здесь код отправки E-Mail и т.п.
        End If
        ' напоминание
        If InputBox("Введите пароль") <> c_Pass Then
            .Close
        Else
            ' разблокировка
            .Unprotect Password:=c_Pass
            .Range.Text = StrReverse(.Range.Text)
            ' сохраняем инфу о разблокировке
            .Variables.Add c_Pass, c_Pass
            .Save
        End If
    End With

End Sub

[npocmop]

Спасибо Вождь, но формат и графика вылетает...
Видимо

StrReverse .. операция несовместима с графикой и имеющимся форматом и действует на них нетвратимо ..

жаль буду искать что-то более подходящее

[Вождь]

Сообщение от npocmop

формат и графика вылетает...

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