When you do it manually, Excel saves the file. Try saving the file after
KeepChangeHistory, and putting the file into xlShared mode.

Workbooks(WorkingFileName).KeepChangeHistory = True
Workbooks(WorkingFileName).SaveAs , , , , , , xlShared

See how that does

Piers