Multi user editing change

Sub NotModeAccess()
Dim o As Workbook
Set o = ActiveWorkbook
Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If
Application.DisplayAlerts = True
End Sub