if worksheet already open then dont open again

[vipulhumein]

I have made two worksheet linked with each other...when i click button "open my sheet" other worksheet automatically open in invisible mode and again if i click button "open my sheet' then a msg appears "you have already open the spec file do u want to reopen again.yes or no"..i want that if my "spec file already open " then dont open again...and the msg does not appear again..

also find the picture of the said msg which i have attached.

please help me out of this problem as soon as possible

thanks in advance..

[vipulhumein]

someone please help me out of this problem

[nepotist]

[VBA]Function FileLocked(strFileName As String) As Boolean
On Error Resume Next
'Dim objAccess As Object
' Set objAccess = CreateObject("Access.Application")
' 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

End If
End Function
[/VBA]

Where StrFileName is the path to the file. You can modify the code to check is the file is locked it means the file is open.