Exclusive Access
 

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

Exclusive Access
 

This was in the VBA help file:

If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
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

Exclusive Access
 

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

Exclusive Access
 

Makes sense to check for Multiuser first. Thank you very much for the reply.
I understand it now as well.
--
Stephen


"JLGWhiz" wrote:

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