Using VBA Access 

Is there a more efficient way of making an open read only excel file to read/write mode?
Or check if read only is true wait till read/write is active

I created a continuous loop that opens and closes the file till read/write is active. However sometimes it works sometimes it doesn't, frustrating. 

I've looked into toggling read/write also Changefileaccess even SETATTR functions 

```
Dim xl As Object

Set xl = CreateObject("Excel.Application")

Do Until xl.ActiveWorkbook.ReadOnly = False
xl.Quit
xl.Workbooks.Open ("C:\TEST\Test.xlsb")
If xl.ActiveWorkbook.ReadOnly = False Then Exit Do
Loop

```