Window7 Offis7

Странно конечно. Постоянно требует?

Сообщение не совсем понятное, хотя судя по коду скорей всего проблема  в том что файл занят ( вы сохраняете файл в котором работаете).

Попробуйте просто файл сохранить (например вот такой макрос работает вроде)

то есть просто файл с диска добавить (можно код и в Excel cделать). Если с этим проблем нет, попробуйте закрыть книгу и потом сохранить файл.

И все таки вопрос - постоянно требует при каждом запуске?  Может банально файрвол блокировать приложение с АПИ.

Значит проблема не в TechnologiCS. Проверьте что я говорил выше, в офисе ведь тоже много изменений может быть, в том числе и блокировки могут поменяться. Сообщение конечно любопытное, но причина не в нем скорей всего, это следствие похоже.

Ну я как раз предположение и высказываю, его видно и по коду. Мы сталкивались с подобными проблемами просто не раз,  хотя сообщение об ошибке для данного случая выглядит странно.

И все таки такой простой тест у вас не проходит что ли (просто добавить некий файл с диска)?

Call Files.AddFileEx("C:\Reg1.reg", 1, -1)

Добавил в триггере
If @new_PRJFILE_DATE is Null Set @new_PRJFILE_DATE = SYSUTCDATETIME ( )
if @new_PRJFILE_SIZE = 0 Set @new_PRJFILE_SIZE = @old_prjfile_size

Изменение прошли
Вышла ошибка "не найден файл C:\unloaded_docs\V67642\ИНСТР-18.03644-2010.xls"
Но файл имеется

Причем тут лицензионное соглашение?
В код программы я внести изменение не могу и при желании.
Вы были правы на счет блокировки файла.
Код макроса стал выглядить следующим образом
    If getOSVer > 5 Then
       Filename = Application.ActiveWorkbook.Path + "\" + "Копия_" + Application.ActiveWorkbook.NAME
       Application.ActiveWorkbook.SaveAs (Filename)
       Set FSO = CreateObject("Scripting.FileSystemObject")
       Filename1 = Replace(Filename, "Копия_", "")
       On Error Resume Next
       FSO.CopyFile Filename, Filename1, 1
    Else
       Application.ActiveWorkbook.Save
       Filename1 = Application.ActiveWorkbook.Path + "\" + Application.ActiveWorkbook.NAME
    End If
    Set Files = Document.Properties("FILES").AsIDispatch
    If Not Files Is Nothing Then
        Application.ActiveWorkbook.Save
       Call Files.AddFileEx(Filename1, 1, -1)
    End If
    Set Files = Nothing
    If getOSVer > 5 Then
       On Error Resume Next
       FSO.DeleteFile Filename, 1
       Set FSO = Nothing
    End If
А как на счет бесконечного требования сервера лицензий. Саму программу «TechnologiCS» могу запустить много раз, и при этом не требуется ввод место нахождения сервера.

А вот этот макрос требует
Sub Workbook_Open()
On Error Resume Next
Set TCS = Nothing
On Error Resume Next
Set TCS = CreateObject("CSDN.TCS")
On Error Resume Next
Set TCSApp = TCS.LoginCurrent
    If Err.Number <> 0 Then
       If (Err.Number = -2147418113) Or (Mid(Err.Description, "cоединение")) Then
          On Error Resume Next
          Set TCSApp = TCS.Login
          If TCSApp Is Nothing Then
              MsgBox ("Ошибка при соединении с TCS!")
              FlagConnect = False
              Exit Sub
          End If
       End If
     End If
On Error Resume Next
If FlagConnect Then Application.Caption = TCSApp.LoginUserName
If Application.Cells(1, 7).Value = "" Then Exit Sub
Set TCSActiveModule = TCSApp.SingleDoc(1, Application.Cells(1, 7).Value)
TCSActiveModule.UserModuleName = TCSActiveModule.UniqueUserModuleName
If TCSActiveModule Is Nothing Then
    MsgBox ("Ошибка при поиске документа в TCS!")
    TCSApp.DeleteModuleByUserModuleName TCSActiveModule.UserModuleName
    FlagConnect = False
    Exit Sub
End If
End sub