Macro wont update after file "read only"

T

tweacle

I have the following macro on start up in my file.

Sub unprotectEm()
ActiveSheet.Unprotect Password:="shreked"
ActiveWorkbook.UpdateLin
Name:="R:\SHARED\PASSACC\EXCEL\PASSACC\CONTROL.XLS" _
, Type:=xlExcelLinks
ActiveSheet.Protect Password:="shreked"
End Sub



Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then MsgBox "READ ONLY YOUVE BEE
WARNED"
End Sub

It works fine until its been opened as "read only". What I mean is
open the file and the read only msg box comes up no prob. When the fil
avail for editing again I open the file and its not updating the contro
list.
Can anyone help
 
Top