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