D
Dick
I have been trying to develop a method to allow a potential buyer to tr
an Excel Spreadsheet before buying. I would like to give the buyer 1
trys after which they could not access the speadsheet (I have coding t
do that).
However, I then want to send them a small file that they load (o
whatever) into Excel and it eliminates, (deletes, voids, or what ever
the vba coding that did not permit further uses.
They can then use the Workbook Template without restriction.
The vba coding I'm using is as follows:
Sub Autpen()
MaxUses = 5
Application.DisplayAlerts = False
Sheets(1).Cells(1, 1).Value = Sheets(1).Cells(1, 1).Value + 1
If Sheets(1).Cells(1, 1).Value < MaxUses Then ThisWorkbook.Save
If Sheets(1).Cells(1, 1).Value > MaxUses Then
MsgBox "Please contact the author for an updated version"
vbOKOnly, "Whoa Partner"
ThisWorkbook.Close
End If
End Sub
Any ideas would be appreciated.
Dic
an Excel Spreadsheet before buying. I would like to give the buyer 1
trys after which they could not access the speadsheet (I have coding t
do that).
However, I then want to send them a small file that they load (o
whatever) into Excel and it eliminates, (deletes, voids, or what ever
the vba coding that did not permit further uses.
They can then use the Workbook Template without restriction.
The vba coding I'm using is as follows:
Sub Autpen()
MaxUses = 5
Application.DisplayAlerts = False
Sheets(1).Cells(1, 1).Value = Sheets(1).Cells(1, 1).Value + 1
If Sheets(1).Cells(1, 1).Value < MaxUses Then ThisWorkbook.Save
If Sheets(1).Cells(1, 1).Value > MaxUses Then
MsgBox "Please contact the author for an updated version"
vbOKOnly, "Whoa Partner"
ThisWorkbook.Close
End If
End Sub
Any ideas would be appreciated.
Dic