Making Excel Tria

[jj4jj]

Good afternoon,

is it possible to make a trial version of an excel document? Like I will send my excel document to somebody, and i want him to use it only for certain time before it expires and after it i want to make it unuseable.

Many thanks for every reply.

[ranman256]

In the code, set the expiration date.

Private Sub Workbook_Open()
If Date > "8/7/15" Then
  MsgBox "Trial has expired", vbCritical, "Trial Version"
  Application.Quit
End If
End Sub

Save the workbook with the VBA passworded so they cant change it.
in the VBE menu, TOOLS, VBA PROJECT PROPERTIES, protection tab,
lock project and set password

[jj4jj]

Is it possible to do so, right after opening the file? I can only attach this code to a button...

[ranman256]

you put this in WORKBOOOK OPEN event
press ALT-F11 to get to VBE\
in the left pane, dbl-click THISWORKBOOK
in the right pane, paste the code.
(it will run at open)