Is there a way to prevent windows explorer from opening another workbook when
one workbook is already open?

This is work fine for me
NOTE that you open workbook only from same computer:
place this code inside Thisworkbook module:

Dim OpenTimes

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "0"
End Sub

Private Sub Workbook_Open()
OpenTimes = GetSetting("APPTEST", "SETTING", "OPENTIMES")
If OpenTimes = "1" Then
Me.Close
Else
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "1"
End if
End Sub

--
Regards,

Halim



"joeeng" wrote:

Is there a way to prevent windows explorer from opening another workbook when
one workbook is already open?

Thanks for the response Halim. However, that is not quite what I had in
mind. If one workbook is open, I wanted that workbook to prevent any other
workbooks from being opened. Your code would have to be present in every
workbook. I have figured out how to accomplish this by utilizing the
application level events.

joeeng

"Halim" wrote:

This is work fine for me
NOTE that you open workbook only from same computer:
place this code inside Thisworkbook module:

Dim OpenTimes

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "0"
End Sub

Private Sub Workbook_Open()
OpenTimes = GetSetting("APPTEST", "SETTING", "OPENTIMES")
If OpenTimes = "1" Then
Me.Close
Else
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "1"
End if
End Sub

--
Regards,

Halim



"joeeng" wrote:

Is there a way to prevent windows explorer from opening another workbook when
one workbook is already open?