Excel 2019 - legacy sharing options in VBA

[Xillo]

Hello

I would like to use Legacy Sharing functions, as I used in former Excel verssions.
Even in 2016 verssion everything was working perfectly:
Sheets protected without password, and workbook shared with password.
So thats the way I was working before:
Unsharing

Application.DisplayAlerts = False
ActiveWorkbook.UnprotectSharing password
Aplication.DisplayAlerts = True
ActiveSheet.Unprotect

Sharing:

Application.DisplayAlerts = False
ActiveSheetProtect
ActiveWorkbook.ProtectSharing Filename:=link_to_file, SharingPassword:=password
Aplication.DisplayAlerts = True

Now Microsoft disabled password sharing options, and old sharing features is available as shared (legacy) but without password protection.

So I tried to enable legacy sharing and move password protection to sheet:

Unprotect/unshare:

If ThisWorkbook.MultiUserEditing = True Then
ThisWorkbook.ExclusiveAccess
End If
ActiveSheet.Unprotect Password:=password

Protect/share:

ActiveSheet.Protect Password:=password
ActiveWorkbook.SaveAs , , , , , , xlShared

Workbook is shared on start, and every time I have error:

vba methid ExclusiveAccess of _workbook failed

I can't find way to legacy share/unshare in VBA. I even tried to record macro with manual sharing and unsharing, but VBA don't record anything....

Is there any way to use this legacy sharing options with VBA in Excel 2019...?

The worst thing is, that I had password shared documents, and after update excel to 2019 anyone can remove sharing protection without password...

Best regards
Łukasz