Проверка: открыт ли файл другим пользователем.

[anatol83]

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

[alibek]

Какой файл? XLS?

[anatol83]

Да, xls!

[alibek]

Смотри свойство книги UserStatus.

[Денис]

alibek
Мне кажется, ему надо узнать статус файла еще до открытия. В этом случае расширение не имеет значения и смотреть надо, я полагаю, через fso или функциями api.

[dormouse]

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

Код: Выделить всё

Sub main()
Dim iFile as integer,strFileName  as String
iFile = FreeFile
On Error Goto ErrorHandler
Open strFileName For Binary Access Write Lock Write As #iFile
Close #iFile

....

Exit Sub
ErrorHandler:
Select Case err.Number
Case 70 :    MsgBox "Файл заблокирован"
Case Else: MsgBox err.Description, , err.Number
End Select


[alibek]

Case 70 : MsgBox "Файл заблокирован"

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

[GWolf]

А если так:

Код: Выделить всё

Sub proverka()
   Dim fil1 as Boolean
   dim wbk as Workbook

   fil1=false
   For Each wbk In Workbooks
      Select Case wbk.Name
          Case "Книга1.xls"
             fil1=true
      End Select
   Next

   if fil1 =false then
      Workbooks.Open Filename:= "Книга1.xls"
   end if

   with Workbooks("Книга1.xls")
       'Ваш код
   End with

   if fil1 = false then
      Workbooks("Книга1.xls").Close
   else
      Workbooks("Книга1.xls").Save
   end if
End Sub

[Viper] :: Используй тэг CODE для оформления кода. Замечание на первый раз устное

[Viper]

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