Работа с одной и той же книгой Excel из разных форм - VB

Формулировка задачи:

Есть две формы. В первой вывожу инф-ю из exel'я , во второй редактирую эту инф-ю (в это время exel висит в фоновом режиме). При открывании первой формы открывается книга, после открывании второй, форма ссылается на уже открытую (активную) книгу. Дак вот, как бы все гуд. Но когда параллельно открыта еще какая нибудь книга exel, то уже редактировать не получается (вторая форма не открывается: ошибка). Ну как понял она не знает к какой активной книге обратится. Помогите исправить код. Это для первой формы:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim Exc As New Excel.Application
Dim XL As Excel.Workbook
Dim ExcPath As String
  
Sub Otkrita1()
    ExcPath = "c:\database.xlsx"
    Set XL = Exc.Workbooks.Open(ExcPath)
    Exc.Visible = False
End Sub

Это для второй формы:

                    Листинг программы
                
Option Explicit
Dim Exc As Excel.Application
Dim XL  As Excel.Workbook
 
Sub Otkrita2()
    Set Exc = GetObject(, "Excel.Application")
    Set XL = Exc.ActiveWorkbook
End Sub

Обращаюсь к книге так:

                    Листинг программы
                
XL.Worksheets("Данные").Cells(1, 1)

Решение задачи: «Работа с одной и той же книгой Excel из разных форм»

textual
                            Листинг программы 
                        
Dim Exc As New Excel.Application 
Dim XL As Excel.Workbook