Open workbook and apply code

**Lifeseeker** · 01-06-2012, 12:24 AM

Hi JapanDave,

Thank you for troubleshooting and what a great idea.

I wonder, however, if this solution will pose another potential problem:

The only reason I'm having my original workbook call THIS one to open is to get data from THIS workbook for the purpose of reporting data that has been collected in BOTH workbooks.

When we don't do reports yet but are just collecting data, when user tries to open THIS workbook, it then try to have the original workbook open according to your code and this won't be desirable. (we have users users collect data in two different workbooks but report in together).

So, in a sense, what I'm trying to do then is......if the sub workbook is being called by another workbook, then use your code to have it open. If the sub workbook is opened directly without being called open by the main workbook, go through the original password code line...

I wonder if I should just go with the original code you previously helped me with(just be content with the way it was)

Any other ideas?

Thank you

**JapanDave** · 01-06-2012, 01:06 AM

It is hard to know how a set of workbooks will be used, but if you are always using them at the same time then another solution is in order. I always go to the easiest way to over come a problem first. I will have another look at the code.

**JapanDave** · 01-06-2012, 04:12 AM

This code is working for me.

Private Sub CalculateTotalClinicVolume_Click()


    
    Application.EnableEvents = False  'This disables all events for all books, so no macro should run while this is false

    Set wbPath = Workbooks.Open("C:\Users\Owner\Desktop\JapanDaveSub.xlsm", Password:="test")
      'your code here
        
        'closing SPH workbook
   wbPath.Close savechanges:=False
   
   Application.EnableEvents = True
        
       

End Sub

**Lifeseeker** · 01-06-2012, 12:46 PM

Originally Posted by JapanDave

This code is working for me.

Private Sub CalculateTotalClinicVolume_Click()

Application.EnableEvents = False  'This disables all events for all books, so no macro should run while this is false

End Sub

Wow nice JapanDave, and it works!!!

Thank you very much for hanging in there with me.