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 )


--
007007007
------------------------------------------------------------------------
007007007's Profile: http://www.excelforum.com/member.php...o&userid=29111
View this thread: http://www.excelforum.com/showthread...hreadid=498921