Unable to change spreadsheet sharing mode in macro

Hi, i’m looking for the way to change spreadsheet sharing programmatically.

Recorded macro doesnot work

	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

 	dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
	dispatcher.executeDispatch(document, ".uno:ShareDocument", "", 0, Array())

Is it possible to change sharing mode with Storetourl or storeasurl functions.
Cannot find any related properties.

trying also:

  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = Shared
  args1(0).Value = 0
  wb1.StoreToUrl(ConvertToURL(sPath2), args1)

With no success

thx. in forward