As Shg says you just need to modify your macro code to open the file read only:

Workbooks.Open "YourFilename&Path", ReadOnly:=True
Richard