Workbooks.Open sets 'Saved' flag on other workbook

brettacook

New Member
Joined
Feb 11, 2017
Messages
9
I have this interesting behavior that I'd like to see if I can avoid. I'm using Excel 2016.
Code:
                Set YearWorkbook = Workbooks.Open("Generator.xlsm")
                Dim DescriptionsWorkbook As Workbook
                Set DescriptionsWorkbook = YearWorkbook
                Dim DescriptionWorksheet As Worksheet
                Set DescriptionWorksheet = DescriptionsWorkbook.Worksheets("Descriptions")
                Dim EventSheet As Worksheet
                Set EventSheet = YearWorkbook.Worksheets("Events")
                Dim WorkbookName As String
                WorkbookName = "Results.xlsx"
                On Error Resume Next
                Dim ResultWorkbook As Workbook
                Set ResultWorkbook = Workbooks.Open(WorkbookName)
                On Error GoTo 0
....

When the the code executes the 'Set ResultWorkbook = Workbooks.Open(WorkbookName)' line, the value of 'YearWorkbook.Saved' goes to False (it should be True because there have been no modifications to that workbook).

Has anyone seen this behavior before? And if so, is there an explanation for this behavior and/or a workaround? (Or, is there some obvious coding error that I've made?)

Thanks!
 

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.
Interesting further information: this behavior occurs only if the 'Results.xlsx' file already exists. If the 'Results.xlsx' file does not exist, the value of 'YearWorkbook.Saved' stays as True.
 
Upvote 0

Forum statistics

Threads
1,223,236
Messages
6,170,915
Members
452,366
Latest member
TePunaBloke

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top