Hi Vijay,
I think the following code will help to some extent.
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Range("A1").Value <> "C:\Desktop\[Book2.xls]Sheet1" Then 'In the inverted
please insert the location to chck
MsgBox "Workbook was moved from the Original Location. Hence, its not
usable", vbOKOnly
Me.Close
End If
End Sub
If this code is supplied in the workbook open event, the macro will run
automatically and check for the current location of the file being opened,
and if it doesnt matches the condition, it will force to close the file
automatically. I hope this would resolve your problem for the time
being........
With regards to restricting copy of the contents is concerned, there is a
method to restrict that as well.....but unfortunately i dont know......GROUP
Please Advise
Harry
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
