A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Add the following code to the ThisWorkbook object for Personal.xlsb:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Windows("PERSONAL.XLSB").Visible = False
ThisWorkbook.Save
End Sub