Worksheet.PivotTableBeforeAllocateChanges event (Excel)

Occurs before changes are applied to a PivotTable.

Syntax

expression.PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

expression A variable that represents a Worksheet object.

Parameters

Name	Required/Optional	Data type	Description
TargetPivotTable	Required	PivotTable	The PivotTable that contains the changes to apply.
ValueChangeStart	Required	Long	The index to the first change in the associated PivotTableChangeList collection. The index is specified by the Order property of the ValueChange object in the PivotTableChangeList collection.
ValueChangeEnd	Required	Long	The index to the last change in the associated PivotTableChangeList collection. The index is specified by the Order property of the ValueChange object in the PivotTableChangeList collection.
Cancel	Required	Boolean	False when the event occurs. If the event procedure sets this argument to True, the changes are not applied to the PivotTable and all edits are lost.

Return value

Nothing

Remarks

The PivotTableBeforeAllocateChanges event occurs immediately before Excel executes an UPDATE CUBE statement to apply all changes to the PivotTable's OLAP data source, and immediately after the user has chosen to apply changes in the user interface.

Example

The following code example prompts the user before updates are applied to the PivotTable's OLAP data source.

Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, _ 
 ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) 
 Dim UserChoice As VbMsgBoxResult 
 
 UserChoice = MsgBox("Allow updates to be applied to: " + TargetPivotTable.Name + "?", vbYesNo) 
 If UserChoice = vbNo Then Cancel = True 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.