Function to show a file is open

[kkjensen]

Is there a function that can tell if a file is open? I'm trying to dummy proof a workbook and I have some files opening automatically as read-only and being hidden. I just want to have some sort of visible indicator in a cell that the file is already currently open.

 

[Von Pookie]

Private Function WorkbookIsOpen(wbname) As Boolean
'   Returns TRUE if the workbook is open
    Dim x As Workbook
    On Error Resume Next
    Set x = Workbooks(wbname)
    If Err = 0 Then WorkbookIsOpen = True _
        Else WorkbookIsOpen = False
End Function

To use it, you have to use the file name--not the full path. For example:

If WorkbookIsOpen("File1.xls") = True then...