Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to make the opening of a workbook conditional upon the opening of another workbook
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. I used the following code and cannot get it to work: Sub Workbook_Open() If Workbooks.Open("Home") = False Then ThisWorkbook.Close End If Would appreciate any help with the VBA code that I would write in each module workbook to do the above. Respond via email: Thanks in advance. Marcello |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to make the opening of a workbook conditional upon the opening of another workbook
Something like this might do it...
Sub Workbook_Open() Dim WB As Workbook For Each WB In Workbooks If WB.Name = "Home.xls" Then GoTo HomeIsOpen Next ThisWorkbook.Close HomeIsOpen: End Sub -- Regards, Rocky McKinley "Marcello do Guzman" wrote in 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. I used the following code and cannot get it to work: Sub Workbook_Open() If Workbooks.Open("Home") = False Then ThisWorkbook.Close End If Would appreciate any help with the VBA code that I would write in each module workbook to do the above. Respond via email: Thanks in advance. Marcello |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I stop blank workbook from opening when opening an existing | Excel Discussion (Misc queries) | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
Conditional Formatting Using If Statement On Opening Of Workbook | Excel Worksheet Functions | |||
How to make opening of workbook conditional of opening of another workbook | Excel Programming |