Stop an excel workbook or worksheet from opening if workbook isn't in a certain folder

Hello All,

Is there anyway to write some VBA code to prevent a workbook from being opened if has been moved or saved to a different folder location. The reason is to prevent people from saving the certain document to a different location, so there can only be one copy available.

I have added in macros to prevent saving and there are macros included to save a shortcut to the users desktop so there is no need to make a copy, these work quite effectively, but the only issue is if someone doesn't allow macros to run then the document can be saved regardless of the macro preventing saving.

So would such a macro be possible to check, if the workbook isn't located in e.g. C:/test then it will give an error message saying please use original workbook.

Any help would be much appreciated.

Thanks very much,

Paul

Thanks for your reply and valid point! But I have a cover page that shows instead of the correct worksheet unless macros are turned on, if someone does save the workbook elsewhere whilst macros are turned off and then turns on macros, they can currently use the workbook properly and they have their own copy.

My thought was, that, yes they would be able to save the workbook elsewhere but when they then turn macros on in the workbook in their new location, it would then trigger this new macro to stop the worksheet from working as it wasn't in the correct location and then give an error message along the lines of, please use the original document, in folder S:/etc, etc.

Does that make sense?

Thanks,

Paul

Thanks for pointing me in right direction event21.

I wrote this:

Private Sub Workbook_Open()
If ThisWorkbook.Path = "S:\Test" Then
Else
MsgBox ("Please use original workbook, copies saved to another location will not work.")
ThisWorkbook.Close savechanges:=False
End If
End Sub

The user will still be able to see the cover page whilst macros are turned off, but as soon as they activate macros whilst the workbook is in the wrong location, it shows the error message and closes the workbook.

Thanks for your help.

Paul