VBA code for enable Multi User Editing

[voda4444]

Hi!

I need to help with VBA code to allow Multi User Editing.

VBA code below is not good for me, beacause every time I'm asked to save file and it's undesirable for me.

How can I enable Workbook "sharing" if is Workbook opened?

Thank you in advance.

Private Sub Workbook_Open()

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

End Sub