C# Snippets

Event_App_NewWorkbook

public void AppEvents_NewWorkbook(Excel.Workbook Wb)
{
    WbkEvents = (Excel.Workbook)gApplicationExcel.ActiveWorkbook;

    if (mbFireEvents == true)
        AppEventsNewWorkbook_Event?.Invoke();
}

Public Sub AppEvents_NewWorkbook(ByVal Wb As Excel.Workbook) _
                                 Handles AppEvents2.NewWorkbook

   WbkEvents = CType(gApplicationExcel.ActiveWorkbook, Excel.Workbook)

   If mbFireEvents = True Then
      RaiseEvent AppEventsNewWorkbook_Event()
   End If
End Sub

Event_App_SheetBeforeRightClick

public void AppEvents_SheetBeforeRightClick(object Sh, Excel.Range Target, ref bool Cancel)
{
    if (mbFireEvents == true)
        AppEventsSheetBeforeRightClick_Event?.Invoke(Sh, Target, Cancel);
}

Public Sub AppEvents_SheetBeforeRightClick(ByVal Sh As Object, _
                                           ByVal Target As Excel.Range, _
                                           ByRef Cancel As Boolean) _
                                           Handles AppEvents.SheetBeforeRightClick

   If mbFireEvents = True Then
      RaiseEvent AppEventsSheetBeforeRightClick_Event(Sh, Target, Cancel)
   End If
End Sub

Event_App_SheetDeactivate

public void AppEvents_SheetDeactivate(object Sh)
{
    if (mbFireEvents == true)
        AppEventsSheetDeactivate_Event?.Invoke(Sh);
}

Public Sub AppEvents_SheetDeactivate(ByVal Sh As Object) _
                                     Handles AppEvents.SheetDeactivate

   If mbFireEvents = True Then
      RaiseEvent AppEventsSheetDeactivate_Event(Sh)
   End If
End Sub

Event_App_WindowDeactivate

public void AppEvents_WindowDeactivate(Excel.Workbook Wb, Excel.Window Wn)
{
    if (mbFireEvents == true)
        AppEventsWindowDeactivate_Event?.Invoke(Wb, Wn);
}

Public Sub AppEvents_WindowDeactivate(ByVal Wb As Excel.Workbook, _
                                      ByVal Wn As Excel.Window) _
                                      Handles AppEvents.WindowDeactivate

   If mbFireEvents = True Then
      RaiseEvent AppEventsWindowDeactivate_Event(Wb, Wn)
   End If
End Sub

Event_App_WindowResize

public void AppEvents_WindowResize(Excel.Workbook Wb, Excel.Window Wn)
{
    if (mbFireEvents == true)
        AppEventsWindowResize_Event?.Invoke(Wb, Wn);
}

Public Sub AppEvents_WindowResize(ByVal Wb As Excel.Workbook, _
                                  ByVal Wn As Excel.Window) _
                                  Handles AppEvents.WindowResize

   If mbFireEvents = True Then
      RaiseEvent AppEventsWindowResize_Event(Wb, Wn)
   End If
End Sub

Event_App_WorkbookAddinInstall

public void AppEvents_WorkbookAddinInstall(Excel.Workbook Wb)
{
    if (mbFireEvents == true)
        AppEventsWorkbookAddinInstall_Event?.Invoke(Wb);
}

Public Sub AppEvents_WorkbookAddinInstall(ByVal Wb As Excel.Workbook) _
                                          Handles AppEvents.WorkbookAddinInstall

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookAddinInstall_Event(Wb)
   End If
End Sub

Event_App_WorkbookAddinUninstall

public void AppEvents_WorkbookAddinUninstall(Excel.Workbook Wb)
{
    if (mbFireEvents == true)
        AppEventsWorkbookAddinUninstall_Event?.Invoke(Wb);
}

Public Sub AppEvents_WorkbookAddinUninstall(ByVal Wb As Excel.Workbook) _
                                            Handles AppEvents.WorkbookAddinUninstall

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookAddinUninstall_Event(Wb)
   End If
End Sub

Event_App_WorkbookBeforeClose

public void AppEvents_WorkbookBeforeClose(Excel.Workbook Wb, ref bool Cancel)
{
    if (mbFireEvents == true)
        AppEventsWorkbookBeforeClose_Event?.Invoke(Wb, Cancel);
}

Public Sub AppEvents_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, _
                                         ByRef Cancel As Boolean) _
                                         Handles AppEvents.WorkbookBeforeClose

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookBeforeClose_Event(Wb, Cancel)
   End If
End Sub

Event_App_WorkbookBeforePrint

public void AppEvents_WorkbookBeforePrint(Excel.Workbook Wb, ref bool Cancel)
{
    if (mbFireEvents == true)
        AppEventsWorkbookBeforePrint_Event?.Invoke(Wb, Cancel);
}

Public Sub AppEvents_WorkbookBeforePrint(ByVal Wb As Excel.Workbook, _
                                         ByRef Cancel As Boolean) _
                                         Handles AppEvents.WorkbookBeforePrint

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookBeforePrint_Event(Wb, Cancel)
   End If
End Sub

Event_App_WorkbookBeforeSave

public void AppEvents_WorkbookBeforeSave(Excel.Workbook Wb, bool SaveAsUI, ref bool Cancel)
{
    if (mbFireEvents == true)
        AppEventsWorkbookBeforeSave_Event?.Invoke(Wb, SaveAsUI, Cancel);
}

Public Sub AppEvents_WorkbookBeforeSave(ByVal Wb As Excel.Workbook, _
                                        ByVal SaveAsUI As Boolean, _
                                        ByRef Cancel As Boolean) _
                                        Handles AppEvents.WorkbookBeforeSave

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookBeforeSave_Event(Wb, SaveAsUI, Cancel)
   End If
End Sub

Event_App_WorkbookDeactivate

public void AppEvents_WorkbookDeactivate(Excel.Workbook Wb)
{
    if (mbFireEvents == true)
        AppEventsWorkbookDeactivate_Event?.Invoke(Wb);
}

Public Sub AppEvents_WorkbookDeactivate(ByVal Wb As Excel.Workbook) _
                                        Handles AppEvents.WorkbookDeactivate

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookDeactivate_Event(Wb)
   End If
End Sub

Event_App_WorkbookNewSheet

public void AppEvents_WorkbookNewSheet(Excel.Workbook Wb, object Sh)
{

    // chart sheets ??
    WshEvents = (Excel.Worksheet)gApplicationExcel.ActiveSheet;

    if (mbFireEvents == true)
        AppEventsWorkbookNewSheet_Event?.Invoke(Wb, Sh);
}

Public Sub AppEvents_WorkbookNewSheet(ByVal Wb As Excel.Workbook, _
                                      ByVal Sh As Object) _
                                      Handles AppEvents.WorkbookNewSheet

   'chart sheets ??
   WshEvents = CType(gApplicationExcel.ActiveSheet, Excel.Worksheet)

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookNewSheet_Event(Wb, Sh)
   End If
End Sub

Event_App_WorkbookOpen

public void AppEvents_WorkbookOpen(Excel.Workbook Wb)
{
    WbkEvents = (Excel.Workbook)gApplicationExcel.ActiveWorkbook;

    // chart sheets ??
    WshEvents = (Excel.Worksheet)gApplicationExcel.ActiveSheet;

    if (mbFireEvents == true)
        AppEventsWorkbookOpen_Event?.Invoke(Wb);
}

Public Sub AppEvents_WorkbookOpen(ByVal Wb As Excel.Workbook) _
                                  Handles AppEvents.WorkbookOpen

   WbkEvents = CType(gApplicationExcel.ActiveWorkbook, Excel.Workbook)

   'chart sheets ??
   WshEvents = CType(gApplicationExcel.ActiveSheet, Excel.Worksheet)

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookOpen_Event(Wb)
   End If
End Sub

Event_App_WorkbookPivotTableCloseConnection

public void AppEvents_WorkbookPivotTableCloseConnection(Excel.Workbook Wb, Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        AppEventsWorkbookPivotTableCloseConnection_Event?.Invoke(Wb, Target);
}

Public Sub AppEvents_WorkbookPivotTableCloseConnection(ByVal Wb As Excel.Workbook, _
                                                       ByVal Target As Excel.PivotTable) _
                                                       Handles AppEvents.WorkbookPivotTableCloseConnection

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookPivotTableCloseConnection_Event(Wb, Target)
   End If
End Sub

Event_App_WorkbookPivotTableOpenConnection

public void AppEvents_WorkbookPivotTableOpenConnection(Excel.Workbook Wb, Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        AppEventsWorkbookPivotTableOpenConnection_Event?.Invoke(Wb, Target);
}

Public Sub AppEvents_WorkbookPivotTableOpenConnection(ByVal Wb As Excel.Workbook, _
                                                      ByVal Target As Excel.PivotTable) _
                                                      Handles AppEvents.WorkbookPivotTableOpenConnection

   If mbFireEvents = True Then
      RaiseEvent AppEventsWorkbookPivotTableOpenConnection_Event(Wb, Target)
   End If
End Sub

Workbook_Activate

private void WbkEvents_WorkbookActivate()
{
    if (mbFireEvents == true)
        WbkEventsActivate_Event?.Invoke();
}

Private Sub WbkEvents_WorkbookActivate() Handles WbkEvents2.Activate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsActivate_Event()
   End If
End Sub

Workbook_AddinInstall

private void WbkEvents_AddinInstall()
{
    if (mbFireEvents == true)
        WbkEventsAddinInstall_Event?.Invoke();
}

Private Sub WbkEvents_AddinInstall() Handles WbkEvents.AddinInstall

   If mbFireEvents = True Then
      RaiseEvent WbkEventsAddinInstall_Event()
   End If
End Sub

Workbook_AddinUninstall

private void WbkEvents_AddinUninstall()
{
    if (mbFireEvents == true)
        WbkEventsAddinUninstall_Event?.Invoke();
}

Private Sub WbkEvents_AddinUninstall() Handles WbkEvents.AddinUninstall

   If mbFireEvents = True Then
      RaiseEvent WbkEventsAddinUninstall_Event()
   End If
End Sub

Workbook_BeforeClose

private void WbkEvents_BeforeClose(ref bool Cancel)
{
    if (mbFireEvents == true)
        WbkEventsBeforeClose_Event?.Invoke(Cancel);
}

Private Sub WbkEvents_BeforeClose(ByRef Cancel As Boolean) _
                                  Handles WbkEvents.BeforeClose

   If mbFireEvents = True Then
      RaiseEvent WbkEventsBeforeClose_Event(Cancel)
   End If
End Sub

Workbook_BeforePrint

private void WbkEvents_BeforePrint(ref bool Cancel)
{
    if (mbFireEvents == true)
        WbkEventsBeforePrint_Event?.Invoke(Cancel);
}

Private Sub WbkEvents_BeforePrint(ByRef Cancel As Boolean) _
                                  Handles WbkEvents.BeforePrint

   If mbFireEvents = True Then
      RaiseEvent WbkEventsBeforePrint_Event(Cancel)
   End If
End Sub

Workbook_BeforeSave

private void WbkEvents_BeforeSave(bool SaveAsUI, ref bool Cancel)
{
    if (mbFireEvents == true)
        WbkEventsBeforeSave_Event?.Invoke(SaveAsUI, Cancel);
}

Private Sub WbkEvents_BeforeSave(ByVal SaveAsUI As Boolean, _
                                 ByRef Cancel As Boolean) _
                                 Handles WbkEvents.BeforeSave

   If mbFireEvents = True Then
      RaiseEvent WbkEventsBeforeSave_Event(SaveAsUI, Cancel)
   End If
End Sub

Workbook_Deactivate

private void WbkEvents_Deactivate()
{
    if (mbFireEvents == true)
        WbkEventsDeactivate_Event?.Invoke();
}

Private Sub WbkEvents_Deactivate() Handles WbkEvents.Deactivate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsDeactivate_Event()
   End If
End Sub

Workbook_NewSheet

private void WbkEvents_NewSheet(object Sh)
{
    if (mbFireEvents == true)
        WbkEventsNewSheet_Event?.Invoke(Sh);
}

Private Sub WbkEvents_NewSheet(ByVal Sh As Object) _
                               Handles WbkEvents.NewSheet

   If mbFireEvents = True Then
      RaiseEvent WbkEventsNewSheet_Event(Sh)
   End If
End Sub

Workbook_Open

private void WbkEvents_Open()
{
    if (mbFireEvents == true)
        WbkEventsOpen_Event?.Invoke();
}

Private Sub WbkEvents_Open() Handles WbkEvents.Open

   If mbFireEvents = True Then
      RaiseEvent WbkEventsOpen_Event()
   End If
End Sub

Workbook_PivotTableCloseConnection

private void WbkEvents_PivotTableCloseConnection(Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        WbkEventsPivotTableCloseConnection_Event?.Invoke(Target);
}

Private Sub WbkEvents_PivotTableCloseConnection(ByVal Target As Excel.PivotTable) _
                                                Handles WbkEvents.PivotTableCloseConnection

   If mbFireEvents = True Then
      RaiseEvent WbkEventsPivotTableCloseConnection_Event(Target)
   End If
End Sub

Workbook_PivotTableOpenConnection

private void WbkEvents_PivotTableOpenConnection(Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        WbkEventsPivotTableOpenConnection_Event?.Invoke(Target);
}

Private Sub WbkEvents_PivotTableOpenConnection(ByVal Target As Excel.PivotTable) _
                                               Handles WbkEvents.PivotTableOpenConnection

   If mbFireEvents = True Then
      RaiseEvent WbkEventsPivotTableOpenConnection_Event(Target)
   End If
End Sub

Workbook_SheetActivate

private void WbkEvents_SheetActivate(object Sh)
{
    if (mbFireEvents == true)
        WbkEventsSheetActivate_Event?.Invoke(Sh);
}

Private Sub WbkEvents_SheetActivate(ByVal Sh As Object) _
                                    Handles WbkEvents.SheetActivate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetActivate_Event(Sh)
   End If
End Sub

Workbook_SheetBeforeDoubleClick

private void WbkEvents_SheetBeforeDoubleClick(object Sh, Excel.Range Target, ref bool Cancel)
{
    if (mbFireEvents == true)
        WbkEventsSheetBeforeDoubleClick_Event?.Invoke(Sh, Target, Cancel);
}

Private Sub WbkEvents_SheetBeforeDoubleClick(ByVal Sh As Object, _
                                             ByVal Target As Excel.Range, _
                                             ByRef Cancel As Boolean) _
                                             Handles WbkEvents.SheetBeforeDoubleClick

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetBeforeDoubleClick_Event(Sh, Target, Cancel)
   End If
End Sub

Workbook_SheetCalculate

private void WbkEvents_SheetCalculate(object Sh)
{
    if (mbFireEvents == true)
        WbkEventsSheetCalculate_Event?.Invoke(Sh);
}

Private Sub WbkEvents_SheetCalculate(ByVal Sh As Object) _
                                     Handles WbkEvents.SheetCalculate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetCalculate_Event(Sh)
   End If
End Sub

Workbook_SheetChange

private void WbkEvents_SheetChange(object Sh, Excel.Range Target)
{
    if (mbFireEvents == true)
        WbkEventsSheetChange_Event?.Invoke(Sh, Target);
}

Private Sub WbkEvents_SheetChange(ByVal Sh As Object, _
                                  ByVal Target As Excel.Range) _
                                  Handles WbkEvents.SheetChange

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetChange_Event(Sh, Target)
   End If
End Sub

Workbook_SheetFollowHyperlink

private void WbkEvents_SheetFollowHyperlink(object Sh, Excel.Hyperlink Target)
{
    if (mbFireEvents == true)
        WbkEventsSheetFollowHyperlink_Event?.Invoke(Sh, Target);
}

Private Sub WbkEvents_SheetFollowHyperlink(ByVal Sh As Object, _
                                           ByVal Target As Excel.Hyperlink) _
                                           Handles WbkEvents.SheetFollowHyperlink

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetFollowHyperlink_Event(Sh, Target)
   End If
End Sub

Workbook_SheetPivotTableUpdate

private void WbkEvents_SheetPivotTableUpdate(object Sh, Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        WbkEventsSheetPivotTableUpdate_Event?.Invoke(Sh, Target);
}

Private Sub WbkEvents_SheetPivotTableUpdate(ByVal Sh As Object, _
                                            ByVal Target As Excel.PivotTable) _
                                            Handles WbkEvents.SheetPivotTableUpdate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetPivotTableUpdate_Event(Sh, Target)
   End If
End Sub

Workbook_SheetSelectionChange

private void WbkEvents_SheetSelectionChange(object Sh, Excel.Range Target)
{
    if (mbFireEvents == true)
        WbkEventsSheetSelectionChange_Event?.Invoke(Sh, Target);
}

Private Sub WbkEvents_SheetSelectionChange(ByVal Sh As Object, _
                                           ByVal Target As Excel.Range) _
                                           Handles WbkEvents.SheetSelectionChange

   If mbFireEvents = True Then
      RaiseEvent WbkEventsSheetSelectionChange_Event(Sh, Target)
   End If
End Sub

Workbook_WindowActivate

private void WbkEvents_WindowActivate(Excel.Window Wn)
{
    if (mbFireEvents == true)
        WbkEventsWindowActivate_Event?.Invoke(Wn);
}

Private Sub WbkEvents_WindowActivate(ByVal Wn As Excel.Window) Handles _
                                     WbkEvents.WindowActivate

   If mbFireEvents = True Then
      RaiseEvent WbkEventsWindowActivate_Event(Wn)
   End If
End Sub

Worksheet_Activate

public void WshEvents_Activate()
{
    if (mbFireEvents == true)
        WshEventsActivate_Event?.Invoke();
}

Public Sub WshEvents_Activate() Handles WshEvents2.Activate

   If mbFireEvents = True Then
      RaiseEvent WshEventsActivate_Event()
   End If
End Sub

Worksheet_BeforeDoubleClick

public void WshEvents_BeforeDoubleClick(Excel.Range Target, ref bool Cancel)
{
    if (mbFireEvents == true)
        WshEventsBeforeDoubleClick_Event?.Invoke(Target, Cancel);
}

Public Sub WshEvents_BeforeDoubleClick(ByVal Target As Excel.Range, _
                                       ByRef Cancel As Boolean) _
                                       Handles WshEvents.BeforeDoubleClick

   If mbFireEvents = True Then
      RaiseEvent WshEventsBeforeDoubleClick_Event(Target, Cancel)
   End If
End Sub

Worksheet_BeforeRightClick

public void WshEvents_BeforeRightClick(Excel.Range Target, ref bool Cancel)
{
    if (mbFireEvents == true)
        WshEventsBeforeRightClick_Event?.Invoke(Target, Cancel);
}

Public Sub WshEvents_BeforeRightClick(ByVal Target As Excel.Range, _
                                      ByRef Cancel As Boolean) _
                                      Handles WshEvents.BeforeRightClick

   If mbFireEvents = True Then
      RaiseEvent WshEventsBeforeRightClick_Event(Target, Cancel)
   End If
End Sub

Worksheet_Calculate

private void WshEvents_Calculate()
{
    if (mbFireEvents == true)
        WshEventsCalculate_Event?.Invoke();
}

Private Sub WshEvents_Calculate() Handles WshEvents2.Calculate

   If mbFireEvents = True Then
      RaiseEvent WshEventsCalculate_Event()
   End If
End Sub

Worksheet_Change

public void WshEvents_Change(Excel.Range Target)
{
    if (mbFireEvents == true)
        WshEventsChange_Event?.Invoke(Target);
}

Public Sub WshEvents_Change(ByVal Target As Excel.Range) _
                            Handles WshEvents.Change

   If mbFireEvents = True Then
      RaiseEvent WshEventsChange_Event(Target)
   End If
End Sub

Worksheet_Deactivate

public void WshEvents_Deactivate()
{
    if (mbFireEvents == true)
        WshEventsDeactivate_Event?.Invoke();
}

Public Sub WshEvents_Deactivate() Handles WshEvents.Deactivate

   If mbFireEvents = True Then
      RaiseEvent WshEventsDeactivate_Event()
   End If
End Sub

Worksheet_FollowHyperlink

public void WshEvents_FollowHyperlink(Excel.Hyperlink Target)
{
    if (mbFireEvents == true)
        WshEventsFollowHyperlink_Event?.Invoke(Target);
}

Public Sub WshEvents_FollowHyperlink(ByVal Target As Excel.Hyperlink) _
                                     Handles WshEvents.FollowHyperlink

   If mbFireEvents = True Then
      RaiseEvent WshEventsFollowHyperlink_Event(Target)
   End If
End Sub

Worksheet_PivotTableUpdate

public void WshEvents_PivotTableUpdate(Excel.PivotTable Target)
{
    if (mbFireEvents == true)
        WshEventsPivotTableUpdate_Event?.Invoke(Target);
}

Public Sub WshEvents_PivotTableUpdate(ByVal Target As Excel.PivotTable) _
                                      Handles WshEvents.PivotTableUpdate

   If mbFireEvents = True Then
      RaiseEvent WshEventsPivotTableUpdate_Event(Target)
   End If
End Sub

Worksheet_SelectionChange

public void WshEvents_SelectionChange(Excel.Range Target)
{
    if (mbFireEvents == true)
        WshEventsSelectionChange_Event?.Invoke(Target);
}

Public Sub WshEvents_SelectionChange(ByVal Target As Excel.Range) _
                                     Handles WshEvents.SelectionChange

   If mbFireEvents = True Then
      RaiseEvent WshEventsSelectionChange_Event(Target)
   End If
End Sub