Macro to prevent macros from running until certain time

[1nk3d]

Longtime lurker, usually can find what I need but this is bothering me.....

I have a report for work, that users pull data from. They click a button for the day of the week, and it pulls data from a report I upload, and gives them data for the previous day. However, many people are pulling it before I have the data (Usually 8:00). I want a macro to add in to my existing macro where if it is before 8:00, it will not allow them to run it.

 

[mikerickson]

Sub mySub()
    If Hour(Now()) < 8 Then
        MsgBox "too early"
    Else
        ' current code
    End If
End Sub

 

[1nk3d]

Compile error: Expected end sub

I put my current macro chain after else?

Sub mySub()
    If Hour(Now()) < 8 Then
        MsgBox "too early"
    Else
        ' current code
    End If
End Sub

 

[My Aswer Is This]

Compile error: Expected end sub

I put my current macro chain after else?

Show us your code.

 

[1nk3d]

Here is a portion. I have a few others where it in essence pulls the data and pastes to other sheets.

Option Explicit
        Public Sub OpenPrevWeek()
 
Dim wkbMyWorkbook As Workbook
Dim wkbWebWorkbook As Workbook
Dim wksWebWorkSheet As Worksheet
 
Set wkbMyWorkbook = ActiveWorkbook
 
Workbooks.Open ("LINK TO REPORT")
 
 
Set wkbWebWorkbook = ActiveWorkbook
Set wksWebWorkSheet = ActiveSheet
 
wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count)
wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "Data"
 
wkbMyWorkbook.Activate
wkbWebWorkbook.Close
PW
 
End Sub
 
Sub PW()
'
'
 
'
    Sheets("Data").Select
    Sheets("output").Visible = True
    Sheets("Data").Select
    Columns("B:B").EntireColumn.AutoFit
    Columns("A:A").EntireColumn.AutoFit
    Range("A3:BE7184").Select
    Selection.Copy
    Sheets("output").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("output").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Data").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Application.Goto Sheets("Fri").Range("A1"), True
    Openhoc
End Sub

 

[Norie]

Call the relevant code from the code Mike suggested.

Sub mySub()
    If Hour(Now()) < 8 Then
        MsgBox "too early"
    Else
        OpenPrevWeek
    End If

End Sub

 

[1nk3d]

Easy enough, appreciate all the help. What if I wanted to change the time to 8:30? I struggle with time in excel.

 

[mikerickson]

If (Now() - Int(Now()) < TimeValue("8:30:00") Then

 

[1nk3d]

I am getting "Compile error: syntax error when I use this code, the above one worked fine...

If (Now() - Int(Now()) < TimeValue("8:30:00") Then

 

[mikerickson]

I missed a parenthesis