Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать демо версию таблицы / 14 сообщений из 14, страница 1 из 1
01.08.2011, 12:33
    #37375015
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
Всем добрых суток, подскажите как сделать, чтобы таблица открылась например 3 раза и после этого больше ее нельзя было открыть? Или как вариант сделать программно после 3х разового открытия файла, дальше выводить запрос на определенный пароль? Заранее благодарю!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 12:38
    #37375028
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
Ну надо было начать с того, где находится таблица? Эксель? Аксесс?

Ну, предположим, речь идет о файле экселя.

Нужно чтобы файл запоминал, сколько раз его открыли? А если пользователь будет открывать каждый раз копию оригинального файла?

Нужно, чтобы комп запоминал, сколько раз открыли файл? А если пользователь откроет этот файл на другом компе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:17
    #37375362
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
Shocker.Pro,

нужно, чтобы файл запоминал сколько раз его открыли на опред компе, все остальное можно не учитывать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:20
    #37375368
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
roma126Shocker.Pro,

нужно, чтобы файл запоминал сколько раз его открыли на опред компе, все остальное можно не учитывать...в любом случае обойти будет очень легко. не парьтесь, это нереально. разве что какие-нить api-функции или независимое от данной таблицы приложение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:30
    #37375390
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
roma126,

бесполезная затея - юзер отключит макросы, снимет пароль с VBA, пароль с листов и получит полный доступ к файлу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:34
    #37375400
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
А если сделать чтобы файл, ну хотя бы, после 1го открытия изменил пароль? Может здесь есть варианты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:37
    #37375410
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
roma126А если сделать чтобы файл, ну хотя бы, после 1го открытия изменил пароль?А если пользователь отключит макросы ДО первого открытия?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:44
    #37375423
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
тогда пол его таблицы работать не будет, потому что там кроме этого будут еще нужные макросы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:52
    #37375445
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
roma126,
Замок от честных людей:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Sheets( 1 ).Visible =  2 
    Me.Save
    Cancel = False
End Sub

Private Sub Workbook_Open()
    Dim Mc As Byte
    Application.DisplayAlerts = False
    Mc = GetSetting("MyApp", "Count", "Open", "0")
    If CInt(Mc) <  3  Then
        Me.Sheets( 1 ).Visible =  1 
        SaveSetting "MyApp", "Count", "Open", Mc +  1 
        Exit Sub
    End If
    DeleteSetting "MyApp", "Count"
    Me.Sheets( 1 ).Delete
    Me.Close - 1 
    Application.Quit
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:54
    #37375452
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
roma126тогда пол его таблицы работать не будет, потому что там кроме этого будут еще нужные макросы...фигня, на полминуты человеку, который знает сочетание клавиш alt+f11
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:55
    #37375455
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
kuklp,

спасибо, пробую применить!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 15:58
    #37375461
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
PlanBroma126тогда пол его таблицы работать не будет, потому что там кроме этого будут еще нужные макросы...фигня, на полминуты человеку, который знает сочетание клавиш alt+f11т.е. есть такая защита от дурака, когда на событие закрытия и сохранения книги ставится макрос, который скрывает листы все листы с пометкой Veryhidden (видно просто так не будет), этот же макрос делает видимым единственный лист, на котором подробно описывается, как включить макросы. пользователь их включает, листы открываются.

так вот, на этот метод и был мой коммент, типа это фигня. более совершенного способа нет (у меня в арсенале)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 16:05
    #37375478
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
kuklp,

Там лишнее преобразование:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2011, 16:06
    #37375481
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать демо версию таблицы
kuklp,

If CInt(Mc) < 3
Просто
If Mc < 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать демо версию таблицы / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 289ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176620]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 193ms
total:  289ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]