If Now > Time(8, 0, 0) And Now < Time(8, 10, 0) Then

[Robbo]

Trying to get excel to open and check the time then run some stuff

If Now > Time(8, 0, 0) And Now < Time(8, 10, 0) Then 'Days
ThisWorkbook.Worksheets("Home").Unprotect Password:="123"
ActiveWorkbook.Unprotect "123"
ThisWorkbook.Worksheets("Home").Range("D37").Locked = True
End If

but its running all the time, now do i get to just run in the set times?

cheers in advance

[Arnoutdv]

The time variables are floating point values between 0 and 1.

? cdbl(timeserial(8,0,0)), cdbl(timeserial(8,10,0))
 0.333333333333333           0.340277777777778 

? cdbl(now) ,cdbl(date), cdbl(time)
 44075.4492708333            44075         0.449270833333333

So it surprises me that the IF statement always returns True
Because Now will never be less than Time(8, 10, 0)

Instead of using Now use Time

I assume you want the code to execute between 08:00:00 and 08:10:00?

[Robbo]

think worked it out

If Time() > TimeValue("06:00:00") And Time() < TimeValue("14:00:00") Then 'Days
ThisWorkbook.Worksheets("Home").Range("D817").Locked = True
ElseIf Time() > TimeValue("14:00:00") And Time() < TimeValue("22:00:00") Then 'Afternoons
ThisWorkbook.Worksheets("Home").Range("D37").Locked = True
ThisWorkbook.Worksheets("Home").Range("D1317").Locked = True
ElseIf Time() > TimeValue("22:00:00") And Time() < TimeValue("06:00:00") Then 'Nights
ThisWorkbook.Worksheets("Home").Range("D312").Locked = True
End If

this worked

The time variables are floating point values between 0 and 1.

? cdbl(timeserial(8,0,0)), cdbl(timeserial(8,10,0))
 0.333333333333333           0.340277777777778 

? cdbl(now) ,cdbl(date), cdbl(time)
 44075.4492708333            44075         0.449270833333333

So it surprises me that the IF statement always returns True
Because Now will never be less than Time(8, 10, 0)

Instead of using Now use Time

I assume you want the code to execute between 08:00:00 and 08:10:00?