Public Event ObjectStatusBeforeChange( _
   ByVal pObject As TDMSObject, _
   ByVal pNewStatus As TDMSStatus, _
   ByRef bCancel As Boolean _
)

'======================================================================
'Текст обработчика может быть размещен в скрипте команды, профиля или
'общесистемном скрипте.

Sub Object_StatusBeforeChange(Obj, Status, Cancel)
        'Запретить смену определенного статуса у объектов тестирования
        If Status.Description = "Утвержден" And Obj.ObjectDef.SysName = "OBJ_TEST" Then
                MsgBox "Невозможно сменить текущий статус на объектах типа """_
                         & Obj.ObjectDef.Description & """.", vbInformation, "Отмена изменений статуса объекта"
                Cancel = True
        End If
End Sub
'======================================================================