Kill a File

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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
 
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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top