Is this right (open for write access)
 

Hi there!
Are these few lines of code correct ?

Workbooks.Open Filename:=FullPath, Notify:=False

' If cranafile opened as read-only then keep trying to
get read/write access

While Workbooks(Cranafile).ReadOnly = True

Application.StatusBar = "Waiting to get read/write
access to " & Cranafile & " ..."
On Error Resume Next
Workbooks(Cranafile).ChangeFileAccess
Mode:=xlReadWrite, Notify:=False

Wend

I'm attempting to ensure the process has read/write
access to <cranafile. This will be run in a multi user
environment where the code is run by several users at
once. I only have a single user system (Windows XP).

Thanks in advance for any useful comments OR confirmation
that it'll be OK.