Активация в определёное время

[fanatptz]

Как сделать что определенный столбец был не активен в заданный промежуток времени?

Ну или макрос был не активен в данный промежуток времени.

Или лист был не активен в данный промежуток времени.

1 файл будут открывать не сколько людей у каждого свой лист.
Чтоб не было косяков при сохранении хочу чтоб они могли что-то менять только в заданные промежутки времени.

[VictorM]

Посмотрите, недавно была тема.

[fanatptz]

Сообщение от VictorM

Посмотрите, недавно была тема.

Я там не нашел.

Есть возможность вставить в макрос что-то типа того чтоб он сравнивал время на компе и в макросе и если и если не совпало то он не работал?

[doober]

Sub MyMacros()
If BetweenTime("12:00", "14:00") Then Exit Sub'D 'В это время не работает
'Код макроса

End Sub
Function BetweenTime(ByVal StartDate As Date, ByVal EndDate As Date) As Boolean
DateTobeChecked = TimeSerial(Hour(Now), Minute(Now), Second(Now))
        If DateDiff("s", StartDate, DateTobeChecked) > -1 And DateDiff("s", EndDate, DateTobeChecked) < 1 Then
                BetweenTime = True
        Else
                BetweenTime = False
        End If
End Function

[fanatptz]

Сообщение от doober

Sub MyMacros()
If BetweenTime("12:00", "14:00") Then Exit Sub'D 'В это время не работает
'Код макроса

End Sub
Function BetweenTime(ByVal StartDate As Date, ByVal EndDate As Date) As Boolean
DateTobeChecked = TimeSerial(Hour(Now), Minute(Now), Second(Now))
        If DateDiff("s", StartDate, DateTobeChecked) > -1 And DateDiff("s", EndDate, DateTobeChecked) < 1 Then
                BetweenTime = True
        Else
                BetweenTime = False
        End If
End Function

Отлично! Благодарю за быстрый ответ! )

[fanatptz]

Сообщение от doober

Sub MyMacros()
If BetweenTime("12:00", "14:00") Then Exit Sub'D 'В это время не работает
'Код макроса

End Sub
Function BetweenTime(ByVal StartDate As Date, ByVal EndDate As Date) As Boolean
DateTobeChecked = TimeSerial(Hour(Now), Minute(Now), Second(Now))
        If DateDiff("s", StartDate, DateTobeChecked) > -1 And DateDiff("s", EndDate, DateTobeChecked) < 1 Then
                BetweenTime = True
        Else
                BetweenTime = False
        End If
End Function

А еще вопрос а как сделать чтоб в это время наоборот работал? )

[IgorGO]

Чтоб не было косяков при сохранении

это решение само по себе - сплошной косяк.

If not BetweenTime(...

фамилию еще не забудьте проверить, кто это работает сейчас BetweenTime("12:00", "14:00")...

подозреваю, это не вытерпит тестовой эксплуатации.