Страницы: 1
RSS
UserForm в конкр. пер. времени
 
Подскажите ребята, как прописать, чтобы 1 раз в день высвечивалось окно UserForm с 17.00 до 24.00. Спасибо заранее
 
это как понять?  
чтобы в 17-00 форма открылась (книга открыта раньше), и до 24-00 эту форму невозможно было закрыть?  
 
Зачем это надо?  
Чтобы с этим файлом невозможно было работать по окончании рабочего дня?
 
чтобы окрылась 1 раз, если время соответствует этому периоду, а ее закрытие через кнопку в этой форме будет.    
Что-то типа этого, но с периодом времени:  
Application.OnTime TimeValue("17:00:00")  
Надеюсь, возможен такой вариант?!
 
В 17:00 форма загружается, и до 24:00 кнопкой её никак не закрыть. Так?    
Присоединяюсь к вопросу Игоря: а с файлом в этот период работа предполагается или нет?
 
{quote}{login=Юрий М}{date=31.12.2010 07:24}{thema=}{post}В 17:00 форма загружается, и до 24:00 кнопкой её никак не закрыть. Так?    
{/post}{/quote}  
Ну почему же нельзя закрыть - вот если кнопку для закрытия создать в форме.  
Единственное, что хотелось бы узнать - как в условии указать не точное время а период, не знаю как это прописать.
 
А это кто писал?  
{quote}{login=i777}{date=31.12.2010 04:44}{thema=UserForm в конкр. пер. времени}{post}высвечивалось окно UserForm с 17.00 до 24.00. Спасибо заранее{/post}{/quote}  
24:00 тут с какой целью? Попробуйте сформулировать иначе
 
Если нужно разрешить запуск формы только в указанный интервал времени, то попробуйте вот так:  
Sub ShowForm()  
Dim TimeStart As Date, TimeFinish As Date  
TimeStart = #5:00:00 PM#  
TimeFinish = #11:59:59 PM#  
   If Time >= TimeStart And Time <= TimeFinish Then UserForm1.Show 0  
End Sub
 
Огромное спасибо Юрий М. Единственное, скажите дилетанту куда прописать в Модуль или ЭтаКнига, в Модуль что-то нужно писать?
 
Вы каким способом собираетесь запускать макрос? По кнопке? В общем случае копируем этот код в стандартный модуль.
 
Спасибо, все получилось.
Страницы: 1
Читают тему
Наверх