Script to select all shapes on all layers

I tried to use this script to select all shapes and it worked well on single layers

Sub selectmulti()
ActivePage.Shapes.All.CreateSelection
End Sub

But now I have multi layers and at least one LOCKED shape on them. And the script SKIPPED all layers that have LOCKED shapes. It only select all shapes on Layers that didn't have any LOCKED item.

Is it the bug or how do I change the code?

Parents
No Data
Reply Children
No Data