Kill a File

[Guest]

I have a file with the Workbook_Open routine looking at the Path for the
current workbook.

If the Path is not equal to the expected location, I want to close the
active file and kill it as part of the subroutine.

Is this possible? I've tried several variations of the KILL command, but to
no avail.

 

[NickHK]

You mean you are trying to check the path (and possibly Kill) a file from
within it's own Workbook_Open event ?
You can't Kill an open file, so this will fail. You have seen a Permission
denied error.

Why not check the path before you open it, as you must know the path in
order to open it.
If it is wrong, Kill it.

NickHK

 

[Dave Peterson]

option explicit
sub workbook_open()

dim myPath as string
mypath = "c:\my documents\excel"

if lcase(me.path) <> lcase(mypath) then
Application.DisplayAlerts=False
me.ChangeFileAccess xlReadOnly
Kill me.FullName
me.Close savechanges:=False
end if

end sub

This is not a nice thing to do (in my opinion). I hope that the user has a
backup and that he/she didn't save anything important to the file in that other
location.

I wouldn't do it.