here is one way

Dim x As String
x = Excel.Workbooks("book1").ReadOnly = True
If x = "True" Then
MsgBox "File is Read Only"
Else
MsgBox "File is available for editing"
End If

"LeeL" wrote:

Is there a way to check if file is available for editing ?
--
Thanks & Best Regards