Option Explicit
Sub OpenDocument()
Dim sFileName As String
sFileName = ThisDocument.Path & "\Test.doc"
If Not IsFileLocked(sFileName) Then
Application.Documents.Open FileName:=sFileName
End If
End Sub
Function IsFileLocked(sFile As String) As Boolean
On Error Resume Next
Open sFile For Binary Access Read Write Lock Read Write As #1
Close #1
If Err.Number <> 0 Then
MsgBox Err.Description, vbExclamation, "Warning File is opened"
IsFileLocked = True
Err.Clear
End If
End Function
|