OK

Try this.

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("info").Visible = True
    Sheets("summary").Visible = xlVeryHiddenEnd
    ThisWorkbook.Save
End Sub
Please note that this code will forcefully save the workbook each time when it closes.