expression.AllowUsingPivotTables
expression Required. An expression that returns a Protection object.
Remarks
The AllowUsingPivotTables property applies to non-OLAP source data.
The AllowUsingPivotTables property can be set by using the Protect method arguments.
Example
This example allows the user to access the PivotTable report and notifies the user. It assumes a non-OLAP Pivot Table report exists on the active worksheet.
Sub ProtectionOptions()
ActiveSheet.Unprotect
' Allow pivot tables to be manipulated on a protected worksheet.
If ActiveSheet.Protection.Allow UsingPivotTables = False Then
ActiveSheet.Protect AllowUsingPivotTables:=True
End If
MsgBox "Pivot tables can be manipulated on the protected worksheet."
End Sub