iFullName = "C:\Temp\Test.xls"
 
Application.EnableEvents = False
Workbooks.Open FileName:=iFullName
Application.EnableEvents = True

iFullName = "C:\Temp\Test.xls"
 
With Application
     .EnableEvents = False
     .Workbooks.Open FileName:=iFullName
     .EnableEvents = True
End With

iFullName = "C:\Temp\Test.xls"
 
With Application
     .EnableEvents = False
     .ScreenUpdating = False
     With .Workbooks.Open(FileName:=iFullName)
          If Not .ProtectStructure Then
             With .Worksheets.Add(After:=.Sheets(.Sheets.Count))
                  'Не будет выполняться событие Workbook_NewSheet
                  .Range("A1").Value = "Дата"
                  .Range("B1").Value = "Сумма"
                  .Range("C1").Value = "Оплата"
                  'Не будет выполняться событие Workbook_SheetChange
             End With
          End If
          .Close saveChanges:=True
          'Не будет выполняться событие Workbook_BeforeClose
     End With
     .ScreenUpdating = True
     .EnableEvents = True
End With