Sub LockProject() Application.DisplayAlerts = False With ActiveWorkbook 'или конкретная книга If Not .MultiUserEditing Then .SaveAs Filename:=.FullName, accessMode:=xlShared End With Application.DisplayAlerts = TrueEnd Sub