Pozdrav,kada istekne trial aplikacija se zatvori i ne moze dalje da radi ,
probaj staviti datum manji od trenutnog datuma da provjeris
a mozes kombinovatii sa macrom neke sljedece događaje ,da usmjeri na tvoju web stranicu,izbrise sve radne listove itd
Sto se tice gdje se postavlja datum za određivanje trial verzije
exdate = "03/15/2016" mjesec/dan/godina
Private Sub Workbook_Open()
Dim exdate As Date
exdate = "03/15/2016"
If Date > exdate Then
MsgBox ("Probna verzija je istekla,kontktirajte autora")
ActiveWorkbook.Close
End If
MsgBox ("Imate jos " & exdate - Date & " dana za isprobavanje programa")
End Sub
Jasmin