Check: how many windows has opened for a particular workbook

[AAP]

Hi,
If user opened more than single views of a workbook then the vba throws error because the workbook name has changed from Workbooks("Book1") to Workbooks("Book1:1") or Workbooks("Book1:2"). How do I write a code that inform user that he has opened many views for that workbook and needs to close before he/she begin to run another code.
Thanks

 

[PCosta87]

Hi,
If user opened more than single views of a workbook then the vba throws error because the workbook name has changed from Workbooks("Book1") to Workbooks("Book1:1") or Workbooks("Book1:2"). How do I write a code that inform user that he has opened many views for that workbook and needs to close before he/she begin to run another code.
Thanks

Hi,

You can use something like (see below) to count the number of open windows and then display a message or do whatever you want:

Sub windowscount()

    If Application.Windows.Count > 1 Then
        MsgBox Application.Windows.Count & " open windows!"
    End If

End Sub

Hope this helps

 

[AAP]

Hi,

You can use something like (see below) to count the number of open windows and then display a message or do whatever you want:

Sub windowscount()

    If Application.Windows.Count > 1 Then
        MsgBox Application.Windows.Count & " open windows!"
    End If

End Sub

Hope this helps

Hi,

This code is counting the windows which includes the other excel workbooks opened at that moment.
But your suggestion worked with a little manipulation.

    If ActiveWorkbook.Windows.Count > 1 Then
        MsgBox ActiveWorkbook.Windows.Count & " open windows!"
    End If

Thanks a lot!

 

[PCosta87]

Hi,

This code is counting the windows which includes the other excel workbooks opened at that moment.
But your suggestion worked with a little manipulation.

    If ActiveWorkbook.Windows.Count > 1 Then
        MsgBox ActiveWorkbook.Windows.Count & " open windows!"
    End If

Thanks a lot!

You are welcome