ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматический пароль по времени
21 сообщений из 21, страница 1 из 1
Автоматический пароль по времени
    #36792560
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Всем привет).
Вот озадачили: можно ли как нибудь сделать так, чтобы:
1й вариант- автоматически ставился пароль на книгу (лист) через определенное время после первого открытия? (допустим через 24часа)
2й вариант- все тоже самое только на конкретную дату
3й - ... через определённое количество открытий книги (допустим 3 раза)
4й - или не пароль а стирались данные вообще с листа....(ну по принципу предыдущих вариантов).
...
Рейтинг: 0 / 0
15.08.2010, 18:08
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36792600
пальцем в небо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пальцем в небо
Гость
PlomBir1,
создать в книге скрытый лист, на который записывать ДатуВремяПервогоОткрытия/КоличествоОткрытий. При каждом открытии книги считывать этот параметр и в зависимости от предпринимать те или иные действия.
ЗЫ: Но ничто не момешает пользователю открыть книгу с отключенными макросами, или изменить данные на этом скрытом листе по своему разумению.
...
Рейтинг: 0 / 0
15.08.2010, 19:43
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36792887
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Привет)
ну и как это сделать?
...
Рейтинг: 0 / 0
16.08.2010, 09:09
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36792993
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Если писать на лист - значит надо книгу сохранить, иначе ничего не запомнится.
Хитрый юзер может заранее сохранить девственную копию и периодически пользовать её.
Да и скрытый лист можно открыть.
Имхо надёжнее писать в текстовый файл куда-нибудь в недра HDD. А код намертво закрыть - не паролем, а например через VBAProtect.
...
Рейтинг: 0 / 0
16.08.2010, 10:19
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36793296
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Мне хотя бы как нибудь, для начала)
...
Рейтинг: 0 / 0
16.08.2010, 12:37
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36793518
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
if date=30.08.2010 then cells.clearcontent
...
Рейтинг: 0 / 0
16.08.2010, 14:04
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36793519
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
прикольно конечно), а что это? вернее как это использовать? Научите!)
...
Рейтинг: 0 / 0
16.08.2010, 14:05
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36793560
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
fortikif date=30.08.2010 then cells.clearcontent
это типа если дата 30.08.2010 тогда все очистить. То есть если 30.08.2010 вы откроете книгу то код очитсит все данные
...
Рейтинг: 0 / 0
16.08.2010, 14:22
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36793707
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Тогда уж так
Код: plaintext
1.
2.
3.
Sub tt()
If Date > CDate("30.08.2010") Then MsgBox "Пора!" ' ну или clearcontents :)
End Sub
...
Рейтинг: 0 / 0
16.08.2010, 15:03
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794000
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
а можно пример, а то я не умею и не знаю как это применить(
...
Рейтинг: 0 / 0
16.08.2010, 16:39
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794017
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
alt+F11, выбрать эта книга (thiswokbook), вставить туда и попробовать потом дату поменять
...
Рейтинг: 0 / 0
16.08.2010, 16:45
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794051
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
что то ничего не получилось( я наверно что то не то делаю(
...
Рейтинг: 0 / 0
16.08.2010, 16:58
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794095
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
ну да, на событие открытия книги вешать надо
...
Рейтинг: 0 / 0
16.08.2010, 17:18
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794107
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
я забыл наверно сказать) что я в вба вообще никак( и что куда там вешать я пока незнаю, но это пока). Киньте файл с макросом этим, а я дату поменяю и посмотрю
...
Рейтинг: 0 / 0
16.08.2010, 17:23
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36794126
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
щас попробую научится.)))
...
Рейтинг: 0 / 0
16.08.2010, 17:30
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36805720
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
PlomBir1,
Пример кода, чтобы при открытии книги, если дата больше заданной, удалить данные на всех листах, при условии что они не защищены.
Данный код вставлять в объект ЭтаКнига

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit

Private Sub Workbook_Open()
 Dim sh
 
 If Date > CDate("30.08.2010") Then
 
 On Error Resume Next
 
 For Each sh In Sheets
  sh.Cells.Clear
 Next sh
 
 On Error GoTo  0 
 
 End If
 
End Sub
...
Рейтинг: 0 / 0
23.08.2010, 11:03
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36814714
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Djon Player ОГРОМНОЕ СПАСИБО, Это супер. РАБОТАЕТ.
А можно что б после удаления всего, выходила надпись, "удаленно инопланетным разумом" )))(шутка)
"удалено в связи с окончанием срока действия"

З.Ы продолжаю учить макросы)

З.з.Ы "удалено в связи с окончанием срока действия инопланетным разумом")))
...
Рейтинг: 0 / 0
27.08.2010, 10:03
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36814771
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
PlomBir1,

Сразу после строки
Код: plaintext
On Error GoTo  0
добавить строчку
Код: plaintext
MsgBox "удалено в связи с окончанием срока действия", vbInformation


Хотя как было сказано выше, если человек откроет файл с отключенными макросами, то ничего не удалиться.

Самый эффективный способ просканировать весь компьютер пользователя и удалить все копии данного файла, включая архивы и электронную почту, т.к. это проблемно, то лучше сразу выполнить format c:, тогда даже если у пользователя всё-же останутся копии этого файла на сменных носителях, вряд ли ему захочется его запускать, сам удалит их от греха подальше. Шутка :D
...
Рейтинг: 0 / 0
27.08.2010, 10:22
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36815166
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Переставьте число на 31 августа) и посмотрите. Для друга сделал)
...
Рейтинг: 0 / 0
27.08.2010, 12:04
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36815523
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
PlomBir1Переставьте число на 31 августа) и посмотрите. Для друга сделал)Прикольно, особенно если ваш друг и есть ваш начальник :D
...
Рейтинг: 0 / 0
27.08.2010, 13:53
| Ответить | Цитировать | Написать  
Автоматический пароль по времени
    #36815536
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Ирония про друга правильна))))
...
Рейтинг: 0 / 0
27.08.2010, 13:57
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматический пароль по времени
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36792560&tid=2177748]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 243ms
total:  520ms
созд. / загр.: 520ms
x
x
Закрыть


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