I am trying to Lock/unlock the view with the help of a Macro in CATIA V6 R2013 . The method LockStatus() is not supported for the selected item.

Sub CATMain()
 
Dim oCurrentActiveEditor As Editor
Set oCurrentActiveEditor = CATIA.ActiveEditor
Dim oObjSelection
Set oObjSelection = oCurrentActiveEditor.Selection

Dim myLockStatus
 
myLockStatus = oObjSelection.LockStatus
oObjSelection.LockStatus = Not myLockStatus

End Sub

'Why is it so ?