Excel Code : Editing for specific time period
this code for Workbook_Open
Private Sub Workbook_Open()
Call testTime
End Sub
this code for Module
Sub macro_timer()
'Tells Excel when to next run the macro.
Application.OnTime Now + TimeValue("00:00:01"), "testTime"
End Sub
Sub testTime()
Dim datntime As String
Dim timee() As String
datntime = Now
timee = Split(datntime, " ")
If timee(1) > "10:00:00" And timee(1) < "11:00:00" Then
Application.ActiveWorkbook.Activate
Else
MsgBox ("you can edit this sheet only from 10 am to 11 am.")
Application.ActiveWorkbook.Save
Application.Quit
End If
Call macro_timer
End Sub