I have shared workbooks. My code can unshare the workbook to unprotect
sheets and add named ranges. But I cannot convert the workbook back to
shared mode.

Can you help?

Here is the code I have written to put the workbook back into shared mode,
but it doesn't work. What am I doiung wrong?

With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 1
End With
ActiveWorkbook.SaveAs Filename:= _
myProjectFolder & myProject , AccessMode:=xlShared
ActiveWindow.Close

Thank you for your assistance.
--
Don