Such as 30 days not to be exceeded
Pls put into this workbook,

Private Sub Workbook_Open()
Application.DisplayAlerts = False
aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1)
MsgBox "Remaining" & 30 - aa & "]Times!!"
If aa = 30 then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
aa = aa + 1
End Sub

( Source from Excel Home )