I can't find any mention of this problem on the web or this forum so I am at wits end. I have a drawing (created in X4 but editing presently in X5) and I can't unlock all objects. Somehow all objects became locked and I can only unlock them individually which will take hours...I need to unlock all objects but this option is greyed out.
Any idea why the 'unlock all objects' menu option would be greyed out?
Hi Azza, wellcome to the CorelDRAW.com forums.
I do not know what include your document and what is your document layer settings.
If you locked (no-editable) the layer is contains locked objects then "Unlock All Objects" command is grayed out.
Open object manager docker then look in to the layers whichs are locked (no-editable) then make editable it.
Hi, the layers are editable and I am able to unlock each item individually but I am unable to unlock all items at once. There is nothing in the layer manager that is locked except the grid layer....which I can't unlock.
Go to Tools > Options > Customization > Commands > Arrange > Unlock All Objects
Drag this icon unto a toolbar so you can use it. Or you can use the Alt+Control keys to drag the icon to a new toolbar for quicker access.
Disregard. I see that you've tried that already.
Yes, I agree. Can you post the file here?
Hi.
This code will unlock all shapes on the page no matter if they are in groups or layers.
Sub unlockEm() ActivePage.Shapes.FindShapes(Query:="@COM.locked = true").UnlockEnd Sub
How to use it info.
-John
Hi John,
This code does not affecrf inside powerclips. Is there any way for Powerclips contents?
Are Items inside powerclips locked?
This will unlock all, even items inside powerclip that are locked.
Option ExplicitSub unlockEm() Dim s As Shape, sr As ShapeRange Dim pwc As PowerClip Dim sp As Shape For Each s In ActivePage.FindShapes Set pwc = Nothing On Error Resume Next 'of course were gonna get an error Set pwc = s.PowerClip On Error GoTo 0 'cancels error handling If Not pwc Is Nothing Then For Each sp In pwc.Shapes sp.Locked = False Next sp End If If s.Locked = True Then s.Locked = False Next sEnd Sub
Thank you John, those codes are very good working. But if 2 or more level power clips inside powerclips then your code does not work.
For intsance
Powerclip--- Powrclip--------Powerclip...----------- Locked Object