You would need to add a line to exit the sub if it is already exclusive
access:

If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
Else
Exit Sub
End If



"Stephen sjw_ost" wrote in message
...
One more question :-)

How can I check to see if my workbook is already open exclusive?

I am using this code to set my workbook exclusive.

Application.DisplayAlerts = False
'
Windows("JAX_PassCounts_v0.9.8.xls").Activate
ActiveWorkbook.ExclusiveAccess
Do
On Error Resume Next
ActiveWorkbook.Save
Loop Until ActiveWorkbook.Saved = True
'
Application.DisplayAlerts = True

How can I write in here that if the file is already exclusive to exit the
sub?
I tried somthing like

If ActiveWorkbook.ExclusiveAccess = True then
Exit Sub
End If

But this did not work, it tried to set the file exclusive and errored out.

Thanks for any help!
--
Stephen