[Resolvido]Verificar aquivo aberto

Bom dia Pessoal.

Alguém poderia me dar aquela força?

Estou querendo identificar em VBA se determinado arquivo (.doc) está aberto, alguém saberia me informar se tem como fazer isto em VBA? Qual o código devo utilizar?

Obrigado.

Ola Edson

Experimente esse código:

Código:



Function ArquivoAberto(strFileName As String) As Boolean
      On Error Resume Next

      ' If the file is already opened by another process,
      ' and the specified type of access is not allowed,
      ' the Open operation fails and an error occurs.
      Open strFileName For Binary Access Read Write Lock Read Write As #1
      Close #1


      ' If an error occurs, the document is currently open.
      If Err.Number <> 0 Then
        ' Display the error number and description.
        ' MsgBox "Error #" & Str(Err.Number) & " - " & Err.Description
        FileLocked = True
        Err.Clear
        ArquivoAberto = True
      End If
  End Function


Abraços