Suppress all parts in an assembly

I am looking for a macro to suppress and unsupress all parts in an assembly.

Thank you

SolidworksApi macros