Ограничение количества запусков файла.

[sergiksergik]

увидел на одном форуме такую штуку..
Позволяет удалять файл excel в указанную дату...

Private Sub ExpirationDate()

If Date >= #8/1/2007# Then 'месяц/число/год - 1 Августа 2007г.
iFullName$ = ActiveWorkbook.FullName
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Application.DisplayAlerts = True
SetAttr iFullName$, vbNormal: Kill iFullName$
ActiveWorkbook.Close saveChanges:=False
End If
End Sub

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

Огромное спасибо....

[pivas]

Поколдуйте с этим:

[sergiksergik]

Подходит... то что и хотел...
Дзякуй...

[tonbon]

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

увидел на одном форуме такую штуку..
Позволяет удалять файл excel в указанную дату...


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

Огромное спасибо....

Ничего он не удалит, ибо kill в excel не работает c открытым файлом