read-only error

[shanec7401]

Hi all, this is probably a pretty dumb query but going to ask anyway.
I have a live file that is updated at a particular PC. There are several macros running on this file. However, I want it available to view as read-only from any other PC also. When I open as read-only (after enabling macros), a message pops up stating "file already exists in this location. Do you want to replace it". Obviously click No here but then it pops up a visual basic error. This error is caused by script that is running which saves data after every entry

Private Sub Workbook_Open()
ActiveWorkbook.Save
ActiveWindow.LargeScroll Down:=-1
End Sub

What I want to know is, is there any code I can use so that when opened in read-only it doesnt try to save.

thanks for any help

 

[shanec7401]

anyone got any ideas?

 

[Richard Schollar]

Hi

Perhaps use:

Private Sub Workbook_Open()
If Not ThisWorkbook.ReadOnly Then _
   ThisWorkbook.Save
End Sub

 

[shanec7401]

excellent

appreciate that