I have a main workbook named Homebase that has a password form. The
correct password must be entered to open the Homebase workbook.
Homebase has hyperlinks to module workbooks which have different names
(P&L Module, Cash Flow Module, etc.)

I want to make sure that users cannot open module workbooks unless the
Homebase workbook is already open.
If someone tried to do this a message box would appear that displays
the mesage: "Sorry, but you can only access this module through
Homebase." The module workbook would NOT open and Excel would be blank
when the user closes the message box.

Would appreciate any help with the VBA code that I would write in each
module workbook to do the above.


---
Message posted from http://www.ExcelForum.com/

Just off the top of my head I can think of two ways, but
neither are 100% secure, it depends on what level of
protection you want. One would be hide all worksheets in
the module in xlveryhidden mode. Then on the workbook
open event have it look to see if workbook (whatever you
name the main book) is open if so unhide sheets, if not
close workbook. This would mean the main workbook would
always have to keep the same name. (or user could just
name a workbook that name and trick it) The other would
be to write to a hidden text file when it is open and
then when it closes delete the file. Then the other
workbook look for that when it opens. neither way is
perfect but they can be modified to suit your needs.

Keith
www.kjtfs.com
-----Original Message-----
I have a main workbook named Homebase that has a
password form. The
correct password must be entered to open the Homebase
workbook.
Homebase has hyperlinks to module workbooks which have
different names
(P&L Module, Cash Flow Module, etc.)

I want to make sure that users cannot open module
workbooks unless the
Homebase workbook is already open.
If someone tried to do this a message box would appear
that displays
the mesage: "Sorry, but you can only access this module
through
Homebase." The module workbook would NOT open and Excel
would be blank
when the user closes the message box.

Would appreciate any help with the VBA code that I would
write in each
module workbook to do the above.


---
Message posted from http://www.ExcelForum.com/

.

Would you happen to know what the VBA code would be and where I would
place it?

I used the following code and cannot get it to work:

Sub Workbook_Open()

If Workbooks.Open("Home") = False Then

ThisWorkbook.Close

End If

End Sub

I placed the above code in ThisWorkbook.


---
Message posted from http://www.ExcelForum.com/