{quote}{login=Юрий М}{date=29.10.2009 11:25}{thema=}{post}Стасон, я набрал в окошке поиска почти целиком Ваш запрос: как узнать - кто уже открыл файл. Не поверите - тема обсуждалась, есть решения. Вам ссылки скопировать сюда или лучше на почтовый ящик?{/post}{/quote}  
 
Юрий, спасибо за содержательный ответ. Я не поверил - проверил ещё раз в поиске. Действительно есть похожие тему. Решений - нет. Может быть дело в том, что я не совсем корректно задал вопрос? Попробую ещё раз.  
 
Можно ли средствами VBA узнать сетевое имя компьютера, с которого открыли "для записи" файл, который я открыл позже "только для чтения"?

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

{quote}{login=}{date=29.10.2009 12:49}{thema=Re: }{post}  
Можно ли средствами VBA узнать сетевое имя компьютера, с которого открыли "для записи" файл, который я открыл позже "только для чтения"?{/post}{/quote}  
 
Хотелось бы получить ответ гуру по существу вопроса. В какой области хелпа по Экселю мне хотя бы искать?

А я пользуюсь во всех книгах следующим макросом. Реально не раз выручал, когда пользователь говорит "не я", а я ему показываю что всетаки он.  
Отображает в листе "Log" кто, что, и когда сделал.  
 
Sub LogFilling(ByVal Target As Range, ByVal SheetName As String)  
           
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 1).NumberFormat = "dd.mm.yyyy hh:mm:ss"  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 1).HorizontalAlignment = xlRight  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 1).Value = Date + Time  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 2).NumberFormat = "@"  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 2).HorizontalAlignment = xlRight  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 2).Value = SheetName & ": " & Target.Address  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 3).HorizontalAlignment = xlRight  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 3).Value = Application.UserName  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 4).HorizontalAlignment = xlRight  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 4).Value = _  
                                               Worksheets("Log").Cells(1, 12).Value  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 5).HorizontalAlignment = xlRight  
   Worksheets("Log").Cells(Worksheets("Log").Cells(1, 11).Value, 5).Value = Target.Value  
   Worksheets("Log").Cells(1, 11).Value = Worksheets("Log").Cells(1, 11).Value + 1  
             
End Sub

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

Я так думаю, что на открытие книги поставлю макрос. Макрос будет в именованые константы записывать всё что мне нужно. А, при открытии, считывать данные буду из этих констант. Вот как-то так...  
 
Всем спасибо.