Shared workbook & save without prompt on close

[BenGee]

Hi

I have this code;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
        wsSheet.Visible = xlSheetVisible
        If wsSheet.Name <> "Cover Page" Then
           wsSheet.Visible = xlSheetVeryHidden
        End If
    Next wsSheet
    If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
End Sub

The challenge I have is around prompts on saving. If person A and person B are in the shared book, and, person A closes the book then the above code works fine. If person B then closes the book, the save prompt still appears (but the above code says to save if not saved so not sure why this is happening).

I recognize (from my own learning on the topic so far) that between person A closing and person B closing, that things have happened in the background hence the prompt to save. However, is there a way around this so that it saves regardless / on every time without prompt?

Any help would be massively appreciated.

Thanks
Ben

 

[Dryver14]

Is it possible that the if statement is forcing the question.

This workbook.save

 

[BenGee]

Maybe!

It works fine if in a 'non-shared' workbook or for the first person to close the shared workbook down. It's just if subsequent users close the workbook, does the save prompt appear.

If the statement is forcing the save question, I'd imagine it would force it in the above 2 examples as well? Feel like I'm missing something

 

[Fluff]

Not sure if this works with shared workbooks, but try

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

 

[BenGee]

Thanks Fluff - Still comes up with the save prompt for the 2nd person. Thank you though