Infinite save prompt loop on close

[MoshiM]

I'm using the following macro to suppress messages about there being things within the workbook that the document inspector can't remove. It works but when closing the file it enters an infinite loop of saving and then prompting me if I want to save changes.

How could I exit this loop after the first time it pops up?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


    With Application


        .DisplayAlerts = False : .EnableEvents = False


        ThisWorkbook.RemovePersonalInformation = True


        ActiveWorkbook.Save


        .EnableEvents = True : .ScreenUpdating = True : .DisplayAlerts = True


    End With


    ThisWorkbook.Saved = True


    Cancel = True


End Sub

 

[Fluff]

Do you have any code in a beforeClose event?

 

[MoshiM]

Do you have any code in a beforeClose event?

No I don't.

 

[Fluff]

If I save the file & then close it, I don't get any problems.

 

[MoshiM]

If I save the file & then close it, I don't get any problems.

Still an infinite loop for me. I also tried adding a Thisworkbook.saved=True to my afterSave event as well

 

[Fluff]

Try putting that line in the BeforeClose Event

 

[MoshiM]

Try putting that line in the BeforeClose Event

Working now!! Thank you.

 

[Fluff]

You're welcome & thanks for the feedback