VBA to prevent workbook from opening at a set time of day

[Dave8899]

Hi all I’m looking for a way to prevent people from opening a workbook between 2-2:30pm every day. So it can be updated on the server.

I have set a Application.OnTime vba to close at a set time 1:59 and then repeated it every min until 2:29.

But people are still able to open the work book between 2/2:30 they kicked out after 1min but that has already stopped the update.

Dose anyone know of a way to prevent the workbook from opening between 2/2:30.

Thanks in advance

 

[Caleeco]

Hi Dave,

In addition to your code to kick people out of the sheet, you can add a Workbook_Open() event.

ALT+F11 > Double Click 'This Workbook' > and paste in the following code:

Private Sub Workbook_Open()
    If Time >= TimeValue("14:00:00") And Time <= TimeValue("14:30:00") Then
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

Cheers
Caleeco

 

[Dave8899]

Thanks very much I’ll give that a go first thing and let you know.

 

[Caleeco]

No problem, yes please do

 

[Dave8899]

Apologies for the late response, it worked a treat thanks very much