Bls: [belajar-excel] verify data setiap 2 jam sekali

[ngademin Thohari]

mr. kid
sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam

Option Explicit

Public Sub SetTimer()
    Dim lState As Long
    Dim dtNext As Date
    
    dtNext = Now()
    lState = (Hour(dtNext) + 3) Mod 4
    Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
    Sheet1.Range("i2").Locked = (lState <> 0)
    dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 - 
lState Mod 2 & ":00:00")
    Application.OnTime dtNext, "SetTimer"
End Sub

Public Sub StopTimer()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "SetTimer", schedule:=False
    Err.Clear
    On Error GoTo 0
End Sub


terima kasih

amin