Error 70 Permission Denied trying to kill a workbook

[sharky12345]

I'm having some real issues trying to kill a closed workbook - my routine has a main workbook and what I'm trying to achieve is the following;

1) Get the main workbook name and store it for use later
2) Save the current (main) workbook as a temporary file
3) Kill the original main workbook so I can open another (updated) workbook and save it as the original main file name

This is what I have so far:

SavedFileName = ActiveWorkbook.Name
Application.ScreenUpdating = False
Application.EnableEvents = False
ThisWorkbook.SaveAs filename:=ThisWorkbook.Path & "\Temp.xlsm"
Application.EnableEvents = True
SetAttr ThisWorkbook.Path & "\Temp.xlsm", vbHidden
SetAttr ThisWorkbook.Path & "\" & SavedFileName, vbNormal
Kill ThisWorkbook.Path & "\" & SavedFileName
Application.ScreenUpdating = True
DoEvents

The workbooks are stored in a network folder and there are NO permission issues as the 'temp' file is deleted without an issue in another routine later. I am getting a persistent 'Error 70 Permission Denied' on the following line:

Kill ThisWorkbook.Path & "\" & SavedFileName

I have tried various things to no avail - can anyone spot where the issue is?

 

[sharky12345]

Hi guys - I'm afraid removing the 'SetAttr' line has not solved the problem. Just a thought, is there anything I can do to effectively clean any reference in the memory to the original file before I try to kill it?

 

[shg]

Assuming you're trying to delete the workbook the code is running in, and you have sufficient permissions in the directory,

Sub KillMe()
  With ThisWorkbook
    If Len(Dir(.FullName)) Then
      .Saved = True
      On Error Resume Next
      .ChangeFileAccess Mode:=xlReadOnly
      On Error GoTo 0
      SetAttr Pathname:=.FullName, Attributes:=vbNormal
      Kill .FullName
      .Close SaveChanges:=False
    End If
  End With
End Sub

 

[sharky12345]

shg, thanks, I will try this and report back...

Would you mind talking me through each element so I can understand how it works?