you must first 'unshare' the workbook.
Application.DisplayAlerts = False ' get rid of sharing prompt
If ActiveWorkbook.MultiUserEditing Then 'if shared then
ActiveWorkbook.ExclusiveAccess 'don't share
End If
'reshare when you save
ActiveWorkbook.SaveAs FileName, , , , , , xlShared
'hope that helps.