I have a workbook ,but looking a macro that auto deletes the file when passed 15 days within the workbook.
Can anyone help
I have a workbook ,but looking a macro that auto deletes the file when passed 15 days within the workbook.
Can anyone help
Paste this into the ThisWorkbook module :
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
Pate this into a Routine Module :
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
The workbook contents will be deleted but the actual workbook will need to be closed manually by the user.
Hi
Thank you Logit worked marvelously:congrats:
You are welcome.
Don’t have an account yet? Register yourself now and be a part of our community!