Not able to self delete the excel

[harry_1805]

Hi,

I wanted to self delete the excel - vba project when pressed on exit button. It doesn't self delete the excel instead it gives me permission denied error(error1.jpg) also find the code for the self deleting the excel.

Private Sub ExitButton1_Click()
Dim strPath As String
strPath = ActiveWorkbook.FullName
Kill strPath
ThisWorkbook.Close False
End Sub

Just few background why iam trying to self delete the same excel, first time user will be opening the excel - vba project from a site and using it. When user open it from the site second time it prompt that the excel is read-only and that's because of the duplicate file lying in temp folder. When they open it readonly and run the project it gives a runtime error, but if they download it to desktop and use it it doesn't give any error.
In order to delete the file at first time they open and after using it.

Please let me know how to solve this problem. Please Help!

[Firefly2012]

Are you trying to delete the file in which the code resides? If the file is currently open on the host machine, then you need to make sure it is Read-Only otherwise you will get an error returned. You can do this via:

Activeworkbook.ChangeFileAccess xlReadOnly
Kill strPath
ThisWorkbook.Close False

If you are trying to kill the workbook in which the code is running then you should change your ActiveWorkbook references to ThisWorkbook to avoid the risk of deleting an incorrect file.

[harry_1805]

This i tired here also i got error because file was in Temporary Internet Folder and was not changing status to readonly. Instead what I did was clear temporary internal folder with VBA command while on exit. This solved the actual problem I had.

Private Sub ExitButton1_Click()
Application.DisplayAlerts = False
Shell "RunDll32.exe InetCpl.Cpl, ClearMyTracksByProcess 8"
ThisWorkbook.Close False
End Sub