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

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

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

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

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

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

бесполезная затея - юзер отключит макросы, снимет пароль с VBA, пароль с листов и получит полный доступ к файлу.
...
Рейтинг: 0 / 0
01.08.2011, 15:30
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #37375400
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
А если сделать чтобы файл, ну хотя бы, после 1го открытия изменил пароль? Может здесь есть варианты?
...
Рейтинг: 0 / 0
01.08.2011, 15:34
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #37375410
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
roma126А если сделать чтобы файл, ну хотя бы, после 1го открытия изменил пароль?А если пользователь отключит макросы ДО первого открытия?
...
Рейтинг: 0 / 0
01.08.2011, 15:37
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #37375423
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
тогда пол его таблицы работать не будет, потому что там кроме этого будут еще нужные макросы...
...
Рейтинг: 0 / 0
01.08.2011, 15:44
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #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:52
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #37375452
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
roma126тогда пол его таблицы работать не будет, потому что там кроме этого будут еще нужные макросы...фигня, на полминуты человеку, который знает сочетание клавиш alt+f11
...
Рейтинг: 0 / 0
01.08.2011, 15:54
| Ответить | Цитировать | Написать  
как сделать демо версию таблицы
    #37375455
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
kuklp,

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

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

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

If CInt(Mc) < 3
Просто
If Mc < 3
...
Рейтинг: 0 / 0
01.08.2011, 16:06
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать демо версию таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=124&tid=2176620]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 201ms
total:  307ms
созд. / загр.: 307ms
x
x
Закрыть


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