Работа с общим файлом в OpenOffice и Excel

Автор nvictoria, 18 октября 2010, 08:28

0 Пользователи и 1 гость просматривают эту тему.

nvictoria

После перевода сервера с  Linux на Windows (была Новел Нетвере, перешли на виндоуз сервер). Файл  Excel  на общем ресурсе открывает один пользователь, если его отрывают в OpenOffice  (calc) открывает второй пользователь в  уведомлении отсутствует имя , кем открыт файл  (неизвестный пользователь). А нужно именно имя. Что нужно сделать?


prof-alex

Обоим пользоваться одним офисным пакетом, либо Excel либо Calc.

Netware никогда линуксом не была, но я сомневаюсь, что при её использовании вы могли получать уведомление в calc о том кто заблокировал файл из excel.

«Студентов, ранее изучавших Бейсик, практически невозможно обучить хорошему программированию. Как потенциальные программисты они подверглись необратимой умственной деградации» Э. Дейкстра

nvictoria

спасибо ответ " Обоим пользоваться одним офисным пакетом, либо Excel либо Calc" замечательный, но мне не подходит...
Воспользовалась информацией Re: Файл уже используеться Excel 2003
от « Ответ #2 : 18 Октябрь 2008, 19:22:24 »

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Workbook_Open()
  Dim UN As String, txtFile As String
  UN = String(100, 0) ' "предзаполняем" строку (для API)
  GetUserName UN, 100 'получаем имя
  txtFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_log.txt" 'путь к файлу
  If ActiveWorkbook.ReadOnly Then 'только чтение?
    Open txtFile For Input As #1
      MsgBox Input(LOF(1), #1) 'отображаем кем посл. раз открыто
    Close #1
  Else 'если доступен:
    Open txtFile For Output As #1 'открываем текстовик для записи
    Print #1, Replace(UN, Chr(0), ""), Now, "(посл. доступ)" 'записываем имя
    Close #1 'закрываем
  End If
End Sub

В данном случае текстовый файл создастся в этой же папке, где и xls-файл, но можно использовать любую папку, исправив путь к файлу (txtFile).


Примечание: Код следует поместить в модуль книги (ЭтаКнига).
----
В Excel работает, а в Open при сохранении файла выдает ошибку

[вложение удалено Администратором]

prof-alex

Цитата: nvictoria от 18 октября 2010, 11:33В Excel работает, а в Open при сохранении файла выдает ошибку
И не должен, у ООо свой вариант Basic. Разрулить такое крайне сложно, проще всем поставить ООо, благо бесплатен, и убедить использовать его при совместном редактировании документов.

Хотя самым верным решением будет уход от совместноредактируемых документов в сторону СУБД.

«Студентов, ранее изучавших Бейсик, практически невозможно обучить хорошему программированию. Как потенциальные программисты они подверглись необратимой умственной деградации» Э. Дейкстра

nvictoria