Hi,

I have a password protected workbook on a shared disc (Master).

I have an other workbook on the same disc with a link to a cell in the Master workbook (Slave).

I have a code that will update the slave workbook every 5 seconds, so that the links to the Master workbook will be updated.

Public RunWhen As Double
Public Const cRunIntervalSeconds = 5
Public Const cRunWhat = "TheSub"  ' the name of the procedure to run
Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub
 
Sub TheSub()
 
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources

'Password is 12345

Range("E1").Value = Now


    StartTimer  ' Reschedule the procedure
End Sub
Problem is, every 5 seconds when the Slave workbook updates the links I get prompted to enter the Master workbook password.

Are there any bypass for this?


Thank you.

Windows 7
Excel 2013