Time bomb not working

[go2review]

ROY UK kindly gave me a solution regarding expiry dates on an excel spread sheet using this coding, fantastic and works the only problem is,if the security setting on someone's machine is set to high the macro doesnt work and they can disable them so the time bomb does not work , i have set auto_run but this does not solve it

Private Sub Workbook_Open()
    'check if a start date exists
    If IsEmpty(Sheets("Hidden").Cells(1, 1)) Then
        'none exists so add today's date
        Sheets("Hidden").Cells(1, 1).Value = Date
        'if a start date has been recorded, check if it is less than 30 days from start
    ElseIf Date >= Sheets("Hidden").Cells(1, 1).Value + 2 Then
        'alert user that it has expired
        MsgBox "Trial period has expired ", vbOKOnly, "Trial Period Expired"
        'close the workbook without saving
        ThisWorkbook.Close (False)
    End If
End Sub

[shg]

Please edit your post to add code tags.

[dominicb]

Good afternoon go2review

the only problem is,if the security setting on someone's machine is set to high the macro doesnt work and they can disable them so the time bomb does not work

This is a Microsoft security feature and there is no sure-fire way around it (apart from not using Excel if you want to use DRM type techniques). There are a couple of tricks on Chip Pearsons page to help out, but you need to remember that there will always be someone who can pick apart your workbook :

http://www.cpearson.com/Excel/EnableMacros.aspx
http://www.cpearson.com/Excel/EnableMacros2.aspx

HTH

DominicB

[ThomasAnthony]

ROY UK kindly gave me a solution regarding expiry dates on an excel spread sheet using this coding, fantastic and works the only problem is,if the security setting on someone's machine is set to high the macro doesnt work and they can disable them so the time bomb does not work , i have set auto_run but this does not solve it

Private Sub Workbook_Open()
    'check if a start date exists
    If IsEmpty(Sheets("Hidden").Cells(1, 1)) Then
        'none exists so add today's date
        Sheets("Hidden").Cells(1, 1).Value = Date
        'if a start date has been recorded, check if it is less than 30 days from start
    ElseIf Date >= Sheets("Hidden").Cells(1, 1).Value + 2 Then
        'alert user that it has expired
        MsgBox "Trial period has expired ", vbOKOnly, "Trial Period Expired"
        'close the workbook without saving
        ThisWorkbook.Close (False)
    End If
End Sub

Hi, I'm wanting something very similar. How many days is this set to? And how do you set the start date? Also, does this go into the, 'this workbook' part of the VBA?

[HaHoBe]

Hi, ThomasAnthony,

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

30 days, yes.

Ciao,
Holger