fil пишет:

цитата:

На компе открыт Exel. В некоторой ситуации он падает (в смысле окна нет, а процесс висит) Если в Excel был открыт файл общего доступа, то он блокируется на запись. Моя прога резидентно перехватывает висящие процессы и удаляет их. Можно ли определить открывался файл данным Excel или нет ?

ЕСли в данный момент нужно определить занят чи файл excel то надо открыть excel и проверить

 
 Private Sub Workbook_Open() 
 If ActiveWorkbook.ReadOnly Then 
 msgbox "Открыта только для чтения" 
  
 End If 
 End Sub

цитата:

тогда впринципе можно макрос написать, который через API-вызов например вычитывал бы имя машины/Login name/IPшник из системного реестра запустившего пользователя. И складывать их например в Workbook.Property. Или на отдельный worksheet.
штука реально полезная и интересная. реализовал так, вставляю во все отчеты =)))
пихаем это в Книгу

Private Sub Workbook_Open()
'ведение лога
UserLog
End Sub

непосредственно код в модуле

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'сетевое имя компьютера
Function GetComputerName() As String
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) <> 0 Then
GetComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
End Function
'имя пользователя
Function GetUserName() As String
Dim sUserNameBuff As String * 255
sUserNameBuff = Space(255)
Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
End Function
'запись в лог-файл
Sub UserLog()
Dim nLogtxt As String

nLogtxt = "G:\PROJECTS\LogData" & "\" & Replace(ThisWorkbook.Name, ".xls", ".txt")

Open nLogtxt For Append As #1
Print #1, Application.UserName & " -- " & Now & " -- " & GetComputerName & " -- " & GetUserName
Close #1
End Sub

хорошо ещё ставить на событие сохранения книги процедуру программного скрытия всех листов, чтобы у пользователя не оставалось шансов, кроме включения макросов. одновременно с этим в тихую дать пользователям доситуп к какой-нить незаметной папочке, где всё это будет вестись...

Можно взять утилиты командной строки : Windows Sysinternals

Есть неплохая утилита Unlocker вики unlocker
Похожая lockhunter lockhunter

цитата:

OPENFILES /<параметр> [<аргументы>]

Описание:
Эта команда позволяет администратору вывести список открытых файлов и папок,
которые были открыты в системе.

Список параметров:
/Disconnect Отключение одного и более открытых файлов.

/Query Отображение открытых файлов, локально и с сетевого ресурса.

/Local Включает/отключает отображение локально открытых файлов.
Примечание: Включение отображения локально открытых файлов
приводит к снижению производительности системы.
Примеры:
OPENFILES /Disconnect /?
OPENFILES /Query /?
OPENFILES /Local /?