[itfs]

Для полноты ощущений.
3. Пишем и выполняем страшный вирус типа:

   
   treeNode        _treeNode;
   treeNode        _treeNodeTab;
   xInfo           xInfo;
   UtilIdElements  UiE;
   str             properties = "";
;
   xInfo               = new xInfo();
   _treeNode           = xInfo.rootNode();
    _treeNode           = _treeNode.AOTfindChild("Data Dictionary");
    _treeNode           = _treeNode.AOTfindChild("Tables");



   while select id, name from UiE
    group by id, name
    where UiE.recordType == 44
       && !(UiE.name like 'Tmp*')
    {
        _treeNodeTab  = _treeNode.AOTfindChild(UiE.name);
        if (_treeNodeTab)
        {
          properties = _treeNodeTab.AOTgetProperties();
          properties = setProperty(Properties, 'MaxAccessMode', 'View');

          _treeNodeTab.AOTsetProperties(Properties);
          _treeNodeTab.AOTsave();
        }
    }

... И через пару минут у вас read-only приложение. Только не забудьте сохранить все что вам дорого .

PS Не претендую на то, что вариант из лучших.

С уважением, itfs.