Консультация № 107078
28.10.2007, 10:12
0.00 руб.
0 1 1
Привет Эксперты! Помогите.Мне надо чтоб EXCEL,сам,через некоторое время блокировался.Как это можно сделать.И пожалуста по подробней.Зарание спасибо.

Обсуждение

Неизвестный
28.10.2007, 22:38
общий
это ответ
Здравствуйте, Кравцив Владимир!
Не совсем ясно из Вашего вопроса, при наступлении какого условия должна происходить блокировка/разблокировка, поэтому - несколько листингов.

Приложение:
1)‘Блокирует Excel до наступления даты(времени) d,‘после чего выводит сообщение о разблокированииSub PleaseWait() Dim d As Date d = #6:45:00 PM# If Application.Wait(d) Then MsgBox "Unblocked!" End IfEnd Sub2)‘Запускает процедуру блокирования PleaseWait через время t после своего запуска‘в нашем случае t=15 сек3)Sub StartOntime() Dim t As Date t = TimeValue("00:00:15") Application.Ontime Now + t, "PleaseWait"End Sub4)‘Отменяет запуск процедуры wait,инициированный процедурой StartOntimeSub CancelOntime() Application.Ontime EarliestTime:=TimeValue("17:00:00"), Procedure:="PleaseWait", Schedule:=FalseEnd Sub5)‘Блокирует Excel, требуя ввода пароля‘Внимание, пароль читаемый,звездочками в поле ввода не заменяется! Sub BlockNow() Dim S As String Dim Pass As String Pass = "123" Do S = InputBox("Input your password, please:", "Input Password", "") Loop Until S = PassEnd Sub
Форма ответа