Active Object Lock / Unlock Toggle - Macro Please

Hello, 
I really can't understand why this question has gone unanswered for 6 months. And the answer is simple:

Sub BhBp_lock_unlock()
'MsgBox ActiveShape.Locked
If ActiveShape.Locked Then
ActiveShape.Locked = False
Else
ActiveShape.Locked = True
End If
End Sub

Greetings!

bhbp.bg2 said:

I really can't understand why this question has gone unanswered for 6 months.

The question was posted in the "CorelDRAW Graphics Suite for Mac" forum.