VBA delen en opslaan

[LauravT]

Hallo,

Ik heb vanuit deze site een code gevonden die het bestand op delen of juist niet delen zet.
Deze werkt echt heel goed.

Echter als ik deze macro uitvoer in mijn bestand om te delen, dan voert hij deze uit, maar zodra ik het bestand afsluit (met of zonder opslaan) dan is het bestand niet meer gedeeld. Doe ik ergens iets fout?
Zowel in .xls als .xlsm bestand geprobeerd.

Code:

Sub Test()

With Application
'gedeeld werkboek?
    If ActiveWorkbook.MultiUserEditing Then
        .DisplayAlerts = False
            'zo ja, maak niet gedeeld.
            ActiveWorkbook.ExclusiveAccess
        .DisplayAlerts = True
        'Range("F13") = "niet gedeeld"
    Else
        .DisplayAlerts = False
            'niet gedeeld? Sla dan op als gedeeld.
            ActiveWorkbook.SaveAs _
                ActiveWorkbook.Name, accessmode:=xlShared
        .DisplayAlerts = True
        'Range("F13") = "gedeeld"
    End If
End With

ActiveWorkbook.Save

End Sub

 

[VenA]

Het delen van bestanden in Excel wordt niet echt aangeraden. De code hoort in Thisworkbook te staan of van daaruit aangeroepen te worden door het before_close event

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  With ActiveWorkbook
    If .MultiUserEditing Then .ExclusiveAccess Else .SaveAs .Name, accessmode:=xlShared
    .Save
  End With
  Application.DisplayAlerts = True
End Sub

 

[LauravT]

Helaas,.. het werkt ook niet als ik het als een BeforeClose event wegzet.

 

[VenA]

Bij mij wel.