Нет, с доступом точо все в порядке.



На первом компютере где была обнаружана проблема, антивируса вообще нету, он изолирован.
На втором компютере стоит стандартный антивирусник майкрасофта, никаких ошибок не находит(

Вообщем нашел я решение проблымы. Сначала накрыл базу старым МД, там были какието изменения только по формах документов (Я предпологаю что просто кто то зашел в форму и сохранил), а после этого уже обновил нужным МД файлом.
Всем спасибо

Всем большое спасибо, у меня получилось!

Выкладываю полный текст обработки, может кому нибудь понадобиться.

Функция ПолучитьОбертку()
    ХТМЛ = СоздатьОбъект("htmlfile");
    ХТМЛ.Open("text/html");
    //<-- Подготовим нужные методы
 
    ХТМЛ.Write("<script type='text/javascript'>
    |var ХТМЛ;
    |ПолучитьЗначение=function(x,y){return x.constructor == Array ? x[y] : x};
    |УстановитьЗначение=function(x,y,z){x[y]=z};
    |РазмерМассива=function(x){return x.length};
    |УстановитьБулево=function(x){x.Value=Boolean(x.Value)};
    |Массив=function(){return new Array()};
    |</script>");
    Док=ХТМЛ.documentElement.document;
 
    Док.script.ХТМЛ=ХТМЛ;
 
    Возврат Док.script;
КонецФункции   
 

Функция ОпенОфис(Файл="")
    Перем Параметр;
    Это=ПолучитьОбертку();
 
    СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager");
    Обновлялка=СервисМанагер.createInstance("com.sun.star.reflection.CoreReflection");
    Проводник=СервисМанагер.createInstance("com.sun.star.ucb.FileContentProvider");
    УРЛ=Проводник.getFileURLFromSystemPath("",Файл);
    Сообщить(УРЛ);
    Массив=Это.Массив(0);
    Параметр=Это.Массив(0);
    
    
    Десктоп = СервисМанагер.createInstance("com.sun.star.frame.Desktop");
 
    Док = Десктоп.LoadComponentFromURL(УРЛ, "_blank", 0, Массив );  
    
    Replace = Док.CreateReplaceDescriptor();  
    Replace.SearchString  = "Заменяемая строка";
    Replace.ReplaceString = "Новая строка";
    Док.ReplaceAll(Replace);

 
КонецФункции

//*******************************************
 
Процедура Сформировать()
    Перем Имя,Путь;
    Если ФС.ВыбратьФайл(0,Имя,Путь,"","Файлы офиса|*.ods;*.xls;*.ott;*.odt;*.doc","*")=0 Тогда
        Возврат;
    КонецЕсли;
    ОпенОфис(Путь+Имя);
КонецПроцедуры