Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
File in Exclusive Use | Excel Discussion (Misc queries) | |||
exclusive macros | Excel Programming | |||
Exclusive use Problem | Excel Discussion (Misc queries) | |||
How to check for Exclusive access to a workbook | Excel Programming |