trial-версия документа

[thorr]

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

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

[Viper]

а твои идеи?

Наверное надо сохранить где-то дату и сравнивать с датой открытия? Не так ли? Остается чуть-чуть воспользоваться справкой и найти там нужные функции

[keks-n]

thorr
А ты не задумываля, о том, что макросы можно и отключить?

[thorr]

а твои идеи?

Наверное надо сохранить где-то дату и сравнивать с датой открытия? Не так ли? Остается чуть-чуть воспользоваться справкой и найти там нужные функции

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

[alibek]

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

Если ты не можешь сделать такую защиту, то кто тогда ты?

[thorr]

мне посоветовали запихнуть в автозапуск что-нить подобное:

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

Dim d As Date, r As Range
Sub cleaner()
   d = "10.05.2006 12:00:00"
   If d < Now Then
     Set r = ActiveDocument.Range
     r.Delete
     ActiveDocument.Save
   End If
End Sub

теперь ламерский вопрос: где этот автозапуск и как в него запихнуть вышенаписанное?

[$€rg]

http://bbs.vbstreets.ru/viewtopic.php?p=54554#54554

[thorr]

$€rg
спасибо!
разобрался. заработало:)

[OMEGUS]

В продолжение темы....

У меня похожая проблема, но специфика другая...

Один Excel файл макросом оборащается ко второму Excel файлу, как во втором отключить на этот момент макросы... Т.е. макросы конкретного файла ?

[$€rg]

http://www.relib.com/forums/Topic874520-11-1.aspx

[OMEGUS]

Спасибо !