shared workbook
 

Need some assistance. I found code here where I can create a shared excel
workbook and also unshare it.
But when I try to unshare it, there is a dialog box, prompting user to
select yes or no to unshare book. Is there a way that I can not have that
dialog box and automatically unshare it. thanks

here is the code that I have:
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If



If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If