Check Whether a Workbook Is Open : Workbook « Excel « VBA / Excel / Access / Word

Check Whether a Workbook Is Open

 
Function BookOpen(Bk As String) As Boolean
    Dim T As Excel.workBook
    Err.clear 'clears any errors
    On Error Resume Next
    Set T = Application.Workbooks(Bk)
    BookOpen = Not T Is Nothing
    
    Err.clear
    On Error GoTo 0
End Function
Sub OpenAWorkbook()
    Dim IsOpen As Boolean
    Dim BookName As String
    BookName = "yourFile.xlsm"
    IsOpen = BookOpen(BookName)
    If IsOpen Then
        MsgBox BookName & " is already open!"
    Else
        Workbooks.Open (BookName)
    End If
End Sub

Related examples in the same category

1.	Center workbook
2.	Create a new workbook
3.	Creates a new workbook and adds it to the collection, reads the number of workbooks into a variable, and selects all worksheets in the active workbook:
4.	Get workbook format
5.	To close all open workbooks, use the Close method of the Workbooks collection object.
6.	To close a single workbook, use the Close method of the Workbook object. The Close method accepts three optional arguments (SaveChanges, FileName, and RouteWorkbook).
7.	To save a workbook from a VBA program, use either the Save methods of the Workbook object.
8.	To select the last Workbook object in the collection
9.	Activate work book
10.	Use a String rather than an index value to reference a workbook
11.	Save workbook and close
12.	The Workbooks property is a member of the Application object and returns a reference to the Workbook object specified by the index value given in the parentheses.
13.	Open workbook by name
14.	Close a workbook and save it
15.	Create a workbook and save it as a new file
16.	The distinction between the Workbook and Window objects lies in an additional method that can be used to create a Window object
17.	Open a workbook and then size it to fit just within the application window
18.	Use Application object to save a workbook as a new file
19.	Add a new workbook and save it
20.	arranges the open workbooks in a tiled configuration
21.	maximizes any workbook when it is activated
22.	places the username in the footer of each sheet printed:
23.	Check Whether a Sheet in an Open Workbook Exists
24.	Count the Number of Workbooks in a Directory
25.	Controlling Worksheet Visibility