Detect whether Excel workbook is already open [closed]

by

Try this:

Option Explicit

Sub Sample()
    Dim Ret

    Ret = IsWorkBookOpen("C:\myWork.xlsx")

    If Ret = True Then
        MsgBox "File is open"
    Else
        MsgBox "File is Closed"
    End If
End Sub

Function IsWorkBookOpen(FileName As String)
    Dim ff As Long, ErrNo As Long

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

    Select Case ErrNo
    Case 0:    IsWorkBookOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: Error ErrNo
    End Select
End Function

More Related Contents:

  1. Print function selecting wrong Type of Change option excel vba
  2. Format Cell Contents
  3. Excel formula checklist in employees
  4. How do I put double quotes in a string in vba?
  5. What is the difference between .text, .value, and .value2?
  6. VBA check if file exists
  7. Excel’s fullname property with OneDrive
  8. How to insert an embedded picture?
  9. How to call a macro from a button and pass arguments
  10. Obtain attribute names from XML using VBA
  11. Paste Excel range in Outlook
  12. Refresh Excel VBA Function Results
  13. Code for looping through all excel files in a specified folder, and pulling data from specific cells
  14. VBa conditional delete loop not working
  15. Run-time error ‘1004’ : Method ‘Range’ of object’_Global’ failed
  16. Concatenate column headers if value in rows below is non-blank
  17. “Can’t find Project or Library” for standard VBA functions
  18. How do I issue an HTTP GET from Excel VBA for Mac
  19. Update excel sheet based on outlook mail [closed]
  20. Copy sheet and get resulting sheet object?
  21. Export chart as image – with click of a button
  22. Error13 in Excel VBA in data file
  23. Excel VBA to match and line up rows
  24. Change font color for a part of text in cell
  25. Create a new object using the text name of the class
  26. Excel cell from which a Function is called [duplicate]
  27. How to extract text within a string of text
  28. GET pictures from a url and then rename the picture
  29. How to protect Excel workbook using VBA?
  30. How to get the range of the visible rows after applying an advanced filter in Excel (VBA)

Leave a Comment