Option Explicit
Dim Stara_Vrijednost

Private Sub Worksheet_Activate()
Dim Putanja As String
Dim tmp As String
Dim dat(2) As Long
Dim Datum As Date
Dim STemp() As String

Putanja = ActiveWorkbook.Path

Open Putanja & "\dat.sys" For Input As #1
Line Input #1, tmp
Close #1
STemp = Split(tmp, "|")
Datum = STemp(1)
dat(1) = Datum
dat(2) = Now
dat(0) = dat(2) - dat(1)
If dat(0) > 0 Then
Me.Range(STemp(0)).Interior.ColorIndex = 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nova_Vrijednost
Dim Putanja As String
Dim Polje As String

Nova_Vrijednost = Target.Value
 
If Stara_Vrijednost <> Nova_Vrijednost Then
Target.Interior.ColorIndex = 37
Putanja = ActiveWorkbook.Path
Open Putanja & "\dat.sys" For Output As #1
Polje = Target.Address

Print #1, Polje & "|" & Now
'Me.Range(Polje).Value = 44
Close #1
End If

End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Value <> Empty Then
Stara_Vrijednost = Target.Value
End If
End Sub