Help macro to delete itself after opeing the first time 90 days

[alonelove]

Hi all, I want macro to do this:

When opening excel file will check sheets("time").range("A1").
if cells is blank will set value of today => value the day opening file.
if cells have value of day will check: today subtract the day exist greater than 90 days will delete this excel file

For examble:
01/15/2020: The first time opening this file => Range(A1) blank will have value "01/15/2020"
04/14/2020: opening file => Do nothing because under 90 days from the first time opening file
04/16/2020: Opeing file => Delete itselt because over 90 days from the first time opening file

Please help me to do that by macro VBA, thanks./.

 

[mole999]

you might consider forcing the file to save as xlsx after the 90 days open, which will remove the VBA, otherwise you are going to generate errors which you will have to deal with.
Providing the user starts with VBA enabled each time, you might opt for doing the save immediately

 

[alonelove]

Thanks @mole999 .

I found this code will delete file in special day but code i want the day is depend on the first time opening file.

Code i found is:

Private Sub Workbook_Open()
 On Error Resume Next
 Dim Edate As Date
 Dim sh As Worksheet
Edate = Format("30/11/2016", "DD/MM/YYYY") '<----- set the delete date here
 If Date > Edate Then
 DeleteActiveWorkbook
End If
End Sub

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

 

[mole999]

Edate = sheets("sheetname").range("A1") + 90