I have the following macro in the workbook open in the excel codes.
Private Sub Workbook_Open()
If Me.ReadOnly = True Then
MsgBox "THIS FILE IS READ ONLY.......YOUVE BEEN WARNED", vbInformation, ""
End If
End Sub
Sub unprotectEm()
Dim ws As Worksheet
ActiveWorkbook.Unprotect Password:="shreked"
ThisWorkbook.UpdateLink Name:="R:\SHARED\PASSACC\EXCEL\PASSACC\CONTROL.XLS" _
, Type:=xlExcelLinks
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.Protect Password:="shreked"
End Sub
The problem im having is thats its not updating. I had the links set to auto update and this works fine until someone goes into the screens with an older version of office. When I go back in its not updated and shows #ref and it also says in the updates not to update despite being set to auto update.
Can anyone help
Private Sub Workbook_Open()
If Me.ReadOnly = True Then
MsgBox "THIS FILE IS READ ONLY.......YOUVE BEEN WARNED", vbInformation, ""
End If
End Sub
Sub unprotectEm()
Dim ws As Worksheet
ActiveWorkbook.Unprotect Password:="shreked"
ThisWorkbook.UpdateLink Name:="R:\SHARED\PASSACC\EXCEL\PASSACC\CONTROL.XLS" _
, Type:=xlExcelLinks
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.Protect Password:="shreked"
End Sub
The problem im having is thats its not updating. I had the links set to auto update and this works fine until someone goes into the screens with an older version of office. When I go back in its not updated and shows #ref and it also says in the updates not to update despite being set to auto update.
Can anyone help
