Solved: Run code if workbook abc.xls is open

[khalid79m]

Private Sub M()
    Environ$ ("username")
    Dim sID As String
    sID = LCase(Environ$("username"))
    If sID = "046439" Then
 
        Application.EnableEvents = False
        Application.DisplayAlerts = False
 
    Else
 
        Application.EnableEvents = True
        Application.DisplayAlerts = True
 
    End If
End Sub

I currently use this code if i am logged on , it stops the enablevents and alerts if i have opend the document, if someone else opens it the enablevents & Display alerts is true.

I need this code to only work if the workbook "abc.xls" is open in the background rather than who opens it.

can anyone help

[Bob Phillips]

[vba]

Private Sub M()
Dim wb As Workbook

On Error Resume Next
Set wb = Workbooks("abc.xls")
On Error GoTo 0

If Not wb Is Nothing Then

Application.EnableEvents = False
Application.DisplayAlerts = False

Else

Application.EnableEvents = True
Application.DisplayAlerts = True
End If
End Sub
[/vba]

[khalid79m]

thanks works great