how to check if file is read only, but from other file

[danovkos]

hi all,
how can i check follow:
I have opened file A
And after run code i want to check if is file B opened read only?

i tried this, but doesnt works:

set target = Workbooks.Open FileName:= "Y:\path\aa\bb\B", UpdateLinks:=0
 
If target.ReadOnly = True Then MsgBox "read-only"

maybe i need define instead thisworkbook to path to file B?
thx a lot

[Bob Phillips]

This should work

[vba]

set target = Workbooks.Open(FileName:= "Y:\path\aa\bb\B", UpdateLinks:=0)

If target.ReadOnly = True Then MsgBox "read-only"
[/vba]

[danovkos]

this open a file B and check it

but is it possible without opening the file B?
maybe not or?
thx

[Bob Phillips]

Not as stated as Readonly only appies to workbooks open.

You can check if the file is alraedy in use with

[vba]

Function IsFileOpen(FileName As String)
Dim iFilenum As Long
Dim iErr As Long

On Error Resume Next
iFilenum = FreeFile()
Open FileName For Input Lock Read As #iFilenum
Close iFilenum
iErr = Err
On Error GoTo 0

Select Case iErr
Case 0: IsFileOpen = False
Case 70: IsFileOpen = True
Case Else: Error iErr
End Select

End Function

Sub test()
If Not IsFileOpen("C:\MyTest\volker2.xls") Then
Workbooks.Open "C:\MyTest\volker2.xls"
End If
End Sub
[/vba]

[danovkos]

OK it works, thank you...and is possible to figured out, who opened this file. I mean username of person whos open this file?