Private Sub Кнопка74_Click()
'On Error GoTo Err_Кнопка74_Click
Dim ExcelWasNotRunning As Boolean ' Flag for final release.
Dim oApp As Object
On Error Resume Next
Set oApp = GetObject(",Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear ' Clear Err object in case error occurred.
' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
DetectExcel
' On Error GoTo rr2:
Set oApp = GetObject("C:\acsess\newlic\Реестр.xls")
oApp.Visible = True
'Only XL 97 supports UserControl Property
oApp.Application.Visible = True
oApp.Parent.Windows(1).Visible = True
'On Error Resume Next
oApp.UserControl = True
If ExcelWasNotRunning = False Then
oApp.Application.Quit
End If

'Set oApp = Nothing ' Release reference to the application and spreadsheet.
'rr2:
'MsgBox "Не найден файл! " & Err.Description
'Resume Next
' MsgBox "The user started Access: " & Application.UserControl

'oApp.Close
' oApp.Quit
'oApp.Application.Quit
'Exit Sub
'oApp.Application.Close
'Exit_Кнопка74_Click:
' Exit Sub

'Err_Кнопка74_Click:
' MsgBox Err.Description
' Resume Exit_Кнопка74_Click

End Sub

Private Sub Кнопка74_Click()
      Dim ExcelWasNotRunning As Boolean
      Dim oApp As Object
On Error Resume Next
      Set oApp = GetObject(",Excel.Application")
      If Err.Number <> 0 Then ExcelWasNotRunning = True
      Err.Clear
      DetectExcel
      Set oApp = GetObject("C:\acsess\newlic\Реестр.xls")
      oApp.Visible = True
      oApp.Application.Visible = True
      oApp.Parent.Windows(1).Visible = True
      oApp.UserControl = True
      If ExcelWasNotRunning = False Then
          oApp.Application.Quit
      End If
End Sub