Excel VisualBasic Script

Sub m()
    With Workbooks("your.xls")
        If MultiUserEditing = False Then
            .SaveAs Filename:=.FullName, AccessMode:=xlShared
        End If
    End With