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

[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
            ' блокировка
            CyrLarReverce
            .Protect Type:=wdAllowOnlyReading, Password:=c_Pass
            .Save
        ' уже заблоктрован
        Else
            ' здесь код отправки E-Mail и т.п.
        End If
        ' напоминание
        If InputBox("Введите пароль") <> c_Pass Then
            .Close
        Else
            ' разблокировка
            .Unprotect Password:=c_Pass
            CyrLarReverce
            ' сохраняем инфу о разблокировке
            .Variables.Add c_Pass, c_Pass
            .Save
        End If
    End With

End Sub

Sub CyrLarReverce()

Dim R As Range
    
    Set R = ThisDocument.Range(0, 0)
    With R.Find
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Text = "[A-Za-zА-ЯЁа-яё0-9 ]{1;}"
    End With
    Do While R.Find.Execute
        R.Text = StrReverse(R.Text)
        R.Collapse wdCollapseEnd
    Loop
    
End Sub

[npocmop]

ну ш а м а н и щ е, большой Вам Рахмат!
очень много за ночь перебрал всяких вариантов
теперь понял главное - здесь можно всё , кроме опускания рук..
потестил: работает, приложусь хотяб по мелочи и бубен практически в сборе - можно обувь подбирать

судя по результату тема скорее называется "отомстить за не $деланные пополнения"

[Вождь]

Все забывал написать насчет хранения даты. В аглицкой Windows формат даты MM.DD.YYYY, а в русской - ДД.MM.ГГГГ. Функция CDate() и др. при преобразовании использует формат Windows, т.е. результат может случится разным.

Дату лучше хранить в виде числа:
Const c_Date As Date = 0 ' = CSng(CDate("00/00/0000 00:00:00"))

Может кто знает в Word функцию преобразующую строку в дату по формату пользователя?

[npocmop]

Покопался.. в основном по делфи информации завались, прямо в примерах по этому вопросу , по питону много .. а по ворду только viter.alex на качелях, но у него вроде тоже такого не описано.

Может кто подскажет ещё, возможно ли сделать в ворде такую каку, чтобы текст был виден только на пол экрана? без применения макросов. если с этого начнется документ - пользователь разрешит макросы (можно надпись ненавязчивую вставить, что без мароса - совсем не то...), макросом всё ставим на место и зрасьте

[Вождь]

Все скрытия обходятся или копированием-вставкой в новый документ, или банальным переключением в режим просмотра "Черновик" или "Обычный". Повторюсь, в данном случае искажение - оптимальный вариант.

Т.е. при открытии без макросов документ должен быть уже искажен (еще на этапе создания), и иметь сообщение о макросах. Просто к искажению надо добавить вставку/удаление сообщения. Например, найти: знак абзаца, заменить: знак абзаца + сообщение + знак абзаца. И наоборот.

Также можно использовать эффект неожиданности. Например, по истечении срока искажать ключом, а ключ сразу удалять. Ключом при StrReverce может служить шаблон поиска "[A-Za-zА-ЯЁа-яё0-9 ]{1;}". Если исключить из него отдельные буквы ("А-ДК-На-жм-ф"), или изменить длину ({1;10}), то эффект будет интересный.

[npocmop]

Сообщение от Вождь

Также можно использовать эффект неожиданности. Например, по истечении срока искажать ключом

Это да, но Вы правы - основное чтоб открыли макрос, для этого надо сделать документ или нечитабельным совсем, ну или перекошенным настолько чтобы пользователь не знал где в меню word усть такая менюшка чтобы наскор исправить.. Пока ищу.. Самый частый вариант, кот. мне встречался - это съезжание полей , поэтому и спрашивал о возможности вообще половинчатого вида документа

[npocmop]

подскажите как реализовать последний штрих в макросе... получается, что у пользователя в меню макросов торчит CyrLarReverce и он в любой момент может обернуть изменения текста. Как грамотно прирастить к установленной c_Date$ , например такую конструкцию:
Dim c As Variant
Set c = ThisDocument.VBProject.VBComponents ("Module1")
ThisDocument.VBProject.VBComponents .Remove c
Set c = Nothing
With ThisDocument.VBProject.VBComponents ("ThisDocument").CodeModule
.DeleteLines 1, .CountOfLines
End With
чтобы после исполнения реверса, макрос самоудалялся

[Вождь]

Зачем? Ведь песня была о том, чтобы покупатель имел возможность отката.

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

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

Чтобы скрыть макрос в списке Alt+F8:
Private Sub CyrLarReverce
Function CyrLarReverce

[npocmop]

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

Private Sub CyrLarReverce
Function CyrLarReverce

этого явно не хватало, спасибо

есть одна мыслишка.. а системное окошко может всплывать без макросов при загрузке документа?