how to limit the day to open excel file by VBA

[nhnn1986]

Hi all

I have excel file data.xlsm and share to another one in my company

Now i want another one can only open file if today < 30/08/2019 (day format as dd/mm/yyyyy)
If Today > 30/8/2019 will have notice: "File has expiry date"

Please help me to do this by macro VBA.
Thanks./.

 

[Michael M]

Try

Sub workbook_open()
If Date >= "30/08/2019" Then MsgBox "file has expired"
ActiveWorkbook.Close
End Sub

remembering, of course that if a person disables macros, it won't take effect.

 

[nhnn1986]

Many thanks M

I have another proplem: The date expired is the value in sheets "main", range(A10). This mean I will type 30/08/2019 in sheets(main).range(A10)

So how to work my proplem with VBA code?

Thanks./.

 

[Michael M]

Use

Sub workbook_open()
If Date >= Sheets("main").range("A10").value Then MsgBox "file has expired"
ActiveWorkbook.Close
End Sub

 

[nhnn1986]

Great code Michael M

I share file with another one but there's finals problem is: Someone have computer with diffrience format date
some computer format as: dd/mm/yyyy (like 30/08/2019), but some computer format mm/dd/yyyy (like 08/30/2019).

So code can't work with computer format like: mm/dd/yyyy. Is there has solution to solved this?

many thanks./.

 

[Michael M]

Shouldn't matter which format it's in, if you are using a cell value and that value is relevent to the regional settings !

 

[nhnn1986]

Shouldn't matter which format it's in, if you are using a cell value and that value is relevent to the regional settings !

Thanks for your kindly, have a nice day