Only allow file to be open from another file

[hungledink]

I was wondering if someone could provided some assistance in a project I've been asked to look at for work.

Essentially, I want to create 2 workbooks. One will be a database, that just stores data, and the second will be an input sheet, where users will add data that gets added to the database. I want to keep the database separate to maintain the integrity of the data

I'd like to make it so that the database can only be opened and viewed by a button on the input sheet workbook. This will then switch to the database file where they can view the desired info, and then switch back.

I do know a bit of vba so I can get the database to open when the input sheet is open, but then have it hidden. I've also got the buttons working to switch between the files.

The problem I'm having is how to stop the database file being opened as a standalone workbook.

Can anyone advise? Its something I'm working on at work so unfortunately can post the existing code.

 

[offthelip]

This code will prevent people accidentally opening the workbook, but it is easily overcome by preventing macros from running when you open the workbook, it closes the workbook if "Book1" is not open

Private Sub Workbook_Open()
For Each wb In Application.Workbooks
  If wb.Name = "Book1.xlsm" Then       ' set this to the input sheet workbook
  Exit Sub
  End If
Next
Workbooks("openclose.xlsm").Close SaveChanges:=False   ' set this to your database workbook
End Sub

Put this code in the workbook module of your database workbook

 

[hungledink]

Thanks for the suggestion.
I forgot to mention in the initial question though that the input sheet isn't always going to be the same name so this won't work 8n that scenario