WorkBook Expire

Hi,

i need to set and expire date, that i can change every month through VBA. I want it to check for the expire date when the user opens the file, but it should still let the user open it, just not save it, with a msg box appearing warning the user. Has enyone got any ideas on how to achieve this,

thanks

Hi,

I'm already using the Private Sub Workbook_BeforeClose(Cancel As Boolean) event module. I'm just not sure on the code to use??

thanks

Hi,

I was trying to adapt the code below, but failed miserably...



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nm As Name, useDate As Date

On Error Resume Next
Set nm = ThisWorkbook.Names("FirstUse")
If Err Or nm Is Nothing Then
'this is first use, save the date
Err.Clear
ThisWorkbook.Names.Add _
Name:="FirstUse", _
Visible:=False, _
RefersTo:=Date

Else
'check today vs. first use
useDate = Right(nm.RefersTo, 5)
'MsgBox useDate
If DateDiff("d", useDate, Date) > 30 Then
ThisWorkbook.Close
End If
End If

End Sub

thanks

Can anyone help with this????

thanks