Probleem VBA Code Share Unshare

[Scallebe]

Beste programeurs,

De onderstaande macro unshared de sheet, unprotect de sheet, voegt een lijn in met formules boven de cel die ik bepaald heb dan protect hij de sheet en dan shared hij de sheet.
Ik laat de macro ook verschillende keren de workbook saven.
Het werkt perfect maar als ik mijn workbook afsluit en terug open dan is de "Shared" modus ingesteld als "Unshared". De protect is nog steeds ingesteld

Wat kan ik doen zodat de workbook in de modus "Shared" blijft bij afsluiten en terug openen.

Ik heb volgende code in mijn Macro :

Sub NieuweLijn()
     If ActiveWorkbook.MultiUserEditing Then
        Application.DisplayAlerts = False
        ActiveWorkbook.ExclusiveAccess
        Application.DisplayAlerts = True
        End If
        ActiveSheet.Unprotect "ynnewg1994"

Cells.Find(What:="Start voor nieuwe rij", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Application.ScreenUpdating = False
Dim cell As Range
Selection.EntireRow.Insert
For Each cell In Intersect(ActiveSheet.UsedRange, Selection.Offset(-1, 0).EntireRow)
If cell.HasFormula Then
cell.Copy cell.Offset(1, 0)
End If
Next
Application.ScreenUpdating = True
ActiveWorkbook.Save

ActiveSheet.Protect "ynnewg1994"
ActiveWorkbook.Save
     
    If Not ActiveWorkbook.MultiUserEditing Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs ActiveWorkbook.Name, accessmode:=xlShared
        Application.DisplayAlerts = True
    End If
    
ActiveWorkbook.Save



End Sub

Alvast bedankt

Pascal