Want to open only one workbook
 

I have a workbook with many VBA codes. Because I block a lot of the
usual functionality of Excell 2000 with these codes, I don't want to
open another Excel file at the same time.

How can I only open one workbook at the time? Or prevent other
workbooks to open while I am using this one? I just can't find the
right VBA code.

Thanks

S.Morin


--
morins
------------------------------------------------------------------------
morins's Profile: http://www.excelforum.com/member.php...o&userid=26522
View this thread: http://www.excelforum.com/showthread...hreadid=397910

Want to open only one workbook
 

This may be of interest:

http://j-walk.com/ss/excel/tips/tip100.htm

Regards
Rowan

"morins" wrote:


I have a workbook with many VBA codes. Because I block a lot of the
usual functionality of Excell 2000 with these codes, I don't want to
open another Excel file at the same time.

How can I only open one workbook at the time? Or prevent other
workbooks to open while I am using this one? I just can't find the
right VBA code.

Thanks

S.Morin


--
morins
------------------------------------------------------------------------
morins's Profile: http://www.excelforum.com/member.php...o&userid=26522
View this thread: http://www.excelforum.com/showthread...hreadid=397910

Want to open only one workbook
 

Hi morins,
maybe something like that:

Private Sub Workbook_Open()
' Prevent opening by Windows explorer
Application.IgnoreRemoteRequests = True
' Prevent opening in this session
Application.OnWindow = ThisWorkbook.Name & "!ThisWbkOnly"
End Sub

In a standard module:
Sub ThisWbkOnly()
If Not ActiveWorkbook.Name = ThisWorkbook.Name Then
ActiveWorkbook.Close False
MsgBox "This session of Excel is private !" & vbLf & vbLf _
& "For consult a different workbook," & vbLf _
& "please open it in an other session" & vbLf _
& "of Excel or by Windows explorer !", 64
End If
End Sub

Regards,
MP

"morins" a écrit dans
le message de news: ...

I have a workbook with many VBA codes. Because I block a lot of the
usual functionality of Excell 2000 with these codes, I don't want to
open another Excel file at the same time.

How can I only open one workbook at the time? Or prevent other
workbooks to open while I am using this one? I just can't find the
right VBA code.

Thanks

S.Morin


--
morins
------------------------------------------------------------------------
morins's Profile:
http://www.excelforum.com/member.php...o&userid=26522
View this thread: http://www.excelforum.com/showthread...hreadid=397910