Wait on File.readonly

[evertjvr]

Hi all

I have a multiple user program and all save to the same workbook(s). Now here is the problem.

I need a 5 second delay to allow the file to become available before continuing with the operations
in all my attempts I created an infinity loop that crashes the PC

During the delayed time I want to display a nice message.

Thanks

[kadeo]

This should do what you need it to.

Application.OnTime

[evertjvr]

Thanks Kadeo the infinity loop is gone but to get it to work will take some work

[evertjvr]

Kadeo

If Application.Wait(Now + TimeValue("0:00:" & Seconds)) Then
 
End If

served me better but you set me on the right track

thanks

[kadeo]

Kadeo

If Application.Wait(Now + TimeValue("0:00:" & Seconds)) Then
 
End If

served me better but you set me on the right track

thanks

Yeah, The difference between OnTime and Wait is that "Ontime" will execute something at a specific time in the future and other code can still execute during the interim whereas "Wait" will execute something at a specific time in the future but other code will not execute during the interim.

[berlan]

Or use API,

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

then in your sub e.g. add (for 1 sec wait, in milliseconds),

Sleep 1000