Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ограничение использования книги пользователем
 
#1
13.10.2015 15:15:28
Добрый день уважаемы форумщики
Возникла такая проблема книгу ексель нужно распостранять клиентам в ней просчет деталей
ейо выложыть придется в интернете и не хотелось бы чтоб нашыми разработками пользовались другие фирмы
Для етого мне поставили задачу сделать так чтоб книгу открыли 20 раз а потом чтоб обращались на фирму для продления
Спасибо кто подскажет
С учотом входов разобрался
с этой статиhttp://www.planetaexcel.ru/techniques/5/196/
а дальше ничего не нашол может плохо искал подскажите плиз
 
 
 
#2
13.10.2015 15:22:54
Поместите этот код в модуль ЭтаКнига:

Код
Private Sub Workbook_Open()
    On Error Resume Next
    FirstRunDate& = GetSetting(Application.Name, "Maks", "value", 0)
    If FirstRunDate& = 0 Then FirstRunDate& = Fix(CDbl(Now)): SaveSetting Application.Name, "Maks", "value", FirstRunDate&
    If Fix(CDbl(Now)) - FirstRunDate& > 5 Then
        SaveSetting Application.Name, "Maks", "value", 100000
        MsgBox "Тестовый период истёк", vbInformation
        ThisWorkbook.Close
    End If
End Sub


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

чтобы это все работало, примените все советы из статьи по вашей ссылке (без макросов не работает, доступ к макросам закрыт паролем, листы без макросов скрыты)
Для защиты от 90% пользователей - достаточно
Защита от 95% пользователей - на порядок сложнее
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
13.10.2015 15:45:36
на томже компе он не откроет больше пока я не поменяю я правильно понял
А можно на количество открываний
Спасибо
 
 
 
#4
20.10.2015 12:40:38
Цитата
Maks802 написал:
А можно на количество открываний
В коде посмотрите комментарий.
Код
 
 
 
Страницы: 1
Читают тему
Наверх