ActiveWorkbook.Close closes both target book as well as unsaved workbook

[PKFillmore]

Hi there folks,
its been awhile since I posted anything so if I did anything wrong please let me know.


Ok to give some background... I have a bunch of code located in an addin which opens whenever I open excel. The addin contains a custom ribbon ui with various buttons doing various things...

A problem I am experiencing is when a user opens excel (a blank unsaved workbook ie 'book1') then uses one of the features of the addin. Each feature calls a logbook for stats purposes, When the logbook closes it closes both the logbook as well as the unsaved workbook 'book1' . this causes the next part of the code to fail since book1 is no longer open.

Even if I have more than 1 workbook open, it always closes the unsaved workbook.

Can anyone provide a little insight?
Thanks

Sub x()
    'code...
     
        'Open Logbook
        Workbooks.Open filename:=LogBook
        
        'more code... (input log data...)
        
        'close logbook
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    
    'more code... (uses cells references which fail since the unsaved workbook closes)


End Sub

 

[PKFillmore]

it seems to closes the unsaved workbook if I originally did not key any data in it..
If I open the instance and just key abc in cell A1 the workbook doesn't close...

I might be able to fudge something together by having the code key something in a cell temporary but does anyone have a more elegant solution?

 

[PKFillmore]

I found a makeshift solution without effecting the workbooks contents...
if I change the saved status to false before opening the logbook excel will think there is data in it.

  ActiveWorkbook.Saved = False
  workbooks.open filename:=LogBook