Pivot T Problem w/Expand-Collapse all PTs

I have some code in my workbook that I'm trying to get to expand and collapse all 3 pivot tables (#2,7,9) while worksheet is protected.
But it only expands the first pivot table and gives me a error code 400. I need the code it to expand and collapse all three PT, when the worksheet is protected. Thanks for your help.