This example indicates whether the workbook was opened for editing in place or in Microsoft Excel.
Private Sub Workbook_Open()
If ThisWorkbook.IsInPlace = True Then
MsgBox "Editing in place"
Else
MsgBox "Editing in Microsoft Excel"
End If
End Sub