ник: lvi15
Сделал так
Option Compare Database
Option Explicit
Private WithEvents owcSS As OWC10.Spreadsheet
Private Sub Form_Load()
Set owcSS = Me.owcSpreadsheet.Object
End Sub
Private Sub owcSS_Workbook_Activate()
MsgBox "Вошли"
End Sub
Увы - не вошло, Workbook_Activate() - событие книги Excel