Unsharing a workbook

[abxy]

i'm trying to come up with a way to have my workbook say "if i'm not i
drive I: then i can't be a shared workbook"

I need it so that when i do a savecopyas of the workbook(which i
shared) to another drive it won't open up as a shared workbook. Tha
way, people in our department can share the workbook, and people tha
aren't in our department can't.
Any suggestions

 

[Township of East Hanover]

Try using Workbooks.Application.Path it returns the path of the current
object....I would put it in the workbook.open event and if the path doesn't
match the one that you expect then close the book.

Rui