VBA : List user in Read Only file

[Nyanko]

I'm using the following code to read and alert if the file is read only :

    Dim boolStatus As Boolean

    boolStatus = ActiveWorkbook.ReadOnly
    If boolStatus = False Then
        notesErr = "Warning this file is read only !" & vbCrLf
        notesErr = notesErr & "no information will be saved." & vbCrLf & vbCrLf
        notesbox = MsgBox(notesErr, vbCritical, "WARNING")
    End If

Is it possible to name and shame the person still in the file ? It appears in the standard warning (assuming you haven't bypassed such things) but is the variable available to be used ?

Many thanks

 

[Andrew Poulsom]

Look here:

http://www.xcelfiles.com/IsFileOpen.html#anchor_37

 

[andersonwl]

I tried this in Excel 2007 and i get an overflow error on this line:

j = InStr(1, strXl, strflag2)

 

[Andrew Poulsom]

Try declaring j as Long rather than Integer.

 

[andersonwl]

The spreadsheet i'm trying to check is a 2007 Macro enabled spreadsheet (*.xlsm). It work fine on xls files but xlsm files return a bunch of binary garbage.

 

[Andrew Poulsom]

The code wasn't designed to work on an Excel 2007 workbook.

 

[andersonwl]

That's what i thought, thanks anyway.

BTW, to use it on xls files i also had to declare i as long.