Restrict "All" from pivot table page field

[Jon von der Heyden]

Hi,

Is there anybody who knows how to restrict a user from selecting "All" from all page fields in a pivot table?

Thanks,
Jon

 

[Andrew Poulsom]

Try this in the module for the sheet:

Private Sub Worksheet_Calculate()
    If Worksheets("Sheet1").PivotTables(1).PageFields(1).CurrentPage = "(All)" Then
        Application.Undo
        Beep
    End If
End Sub

Calculation must be set to Automatic.

 

[Jon von der Heyden]

Thanks Andrew