Help to set expired day to open excel file

[nhnn1986]

Hi all

I have workbook shared to someone, but I want this excel file can open if the day before 31/12/2019. If file open on day after 31/12/2019 will have pop up messegbox "File was experidated" then delete this file when user click "OK" button in Pop up.

Please help me to do that, thanks./.

 

[nhnn1986]

Please help me./.

 

[Michael M]

Use something like this....BUT....if the Other User disables macros the file will NOT be deleted

Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("31/12/2019", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate  Then
MsgBox "This workbook is Expired and will now close !!!"
With ThisWorkbook
        .Saved = True
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName
        .Close False
    End With
End If
End Sub

 

[Macropod]

And, if you've supplied the file via email, for example, or the user has made backups, they'll soon know to reload the original and disable your macro (even permanently, by saving the file in the xlsx format).

 

[nhnn1986]

Thanks both Michael M and Macropod

I have no idea to do this but maybe have case as Macropod said

In this case can you have better sulution to delete file after experid

Many thanks./.

 

[Michael M]

Short answer....No !!
Unless of course you simply reach the expiry date and delete the file manually

 

[Michael M]

you could force the user to enable macros to use the workbook....have a look here for an example on how to do that !

https://www.mrexcel.com/forum/excel...-enable-macros-ask-save-changes-solution.html

 

[nhnn1986]

you could force the user to enable macros to use the workbook....have a look here for an example on how to do that !

https://www.mrexcel.com/forum/excel...-enable-macros-ask-save-changes-solution.html

Thnaks for your respond, I'll try with your link./.

 

[Macropod]

Long story short: anything you can do to lock down a workbook you're giving others access to can be defeated without too much difficulty by a determined user. Excel's security in such situations might best be viewed as something designed to protect a trustworthy but ignorant user from themselves...

 

[Michael M]

@Macropod.....Agreed....I found out the hard way, early on in my Excel Journey...