expression.EnableDataValueEditing
expression Required. An expression that returns a PivotTable object.
Remarks
Any editing performed on data values is lost upon refresh.
Example
This example determines the alert setting for overwriting values in the data area and notifies the user. The example assumes a PivotTable exists on the active worksheet.
Sub CheckAlertSetting()
Dim pvtTable As PivotTable
Set pvtTable = ActiveSheet.PivotTables(1)
' Determine alert setting.
If pvtTable.EnableDataValueEditing = False Then
MsgBox "Alert is enabled."
Else
MsgBox "Alert is disabled."
End If
End Sub