VBA Macro for ExpirationCode

[jwelker12]

Hello I am trying to have my excel document lock up after a few months with this expiration code below but I'm having a few issues.

First issue the Macro code is incorrect for some reason and i can't figure it out.

Second issue the file lets people decide if they want to use the macros in the file and if they choose not to open the file with the macros then they are able to continue to edit the file even after the expiration date.

Is there a way to be able to do both without going crazy.


Here is my Code:

Sub Auto_Open()
ExpirationCode
End Sub

Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2015, 19, 2)
If Now() >= ExpirationDate Then
MsgBox “Trial Period ended on ” & CStr(ExpirationDate) & “.”
ThisWorkbook.Close savechanges:=False
End If
End Sub

I have attached a file example if anyone can help me.

Thank you
Justin

 

[Hui]

Justin

The DateSerial format is DateSerial(Year, Month, Day)
you had DateSerial(Year, Day, Month)

Use + to join strings in VBA

Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2014, 2, 19)
If Now() >= ExpirationDate Then
MsgBox "Trial Period ended on " + CStr(ExpirationDate) + "."
ThisWorkbook.Close savechanges:=False
End If
End Sub

 

[Hui]

As for the second part of your question about forcing users to Enable Macro's
This would require a macro and hence can't be achieved

You will need to educate your staff as to how and why they must enable macros

There is a technique which can be used and is described here
http://datapigtechnologies.com/blog/index.php/forcing-your-clients-to-enable-macros/
It only has a single sheet visible which has a warning message that macro's must be enabled
So unless a user enables macro's they only see this message
If they enable macro's, the sheet is hidden and other sheets are shown

 

[jwelker12]

Justin

The DateSerial format is DateSerial(Year, Month, Day)
you had DateSerial(Year, Day, Month)

Use + to join strings in VBA

Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2014, 2, 19)
If Now() >= ExpirationDate Then
MsgBox "Trial Period ended on " + CStr(ExpirationDate) + "."
ThisWorkbook.Close savechanges:=False
End If
End Sub

Hui,

I have attached a screenshot of an error message that i received with the ExpirationCode when I tried to apply it to my file.

Any Ideas?

Thanks
Justin

 

[jwelker12]

I have also had an issue with the Macro that forces users to enable macros but it is still able to work just want to maybe clean it up a little . I have attached a print screen of the error that I'm getting to see if anyone can help me out with this.
Thank you
Justin

 

[jwelker12]

Hui,

I have attached a screenshot of an error message that i received with the ExpirationCode when I tried to apply it to my file.

Any Ideas?

Thanks
Justin

 

[Hui]

Justin

I am sorry, But I can't assist with Excel Mac issues.

Anybody else running Excel Mac that can help Justin ?