Using VBA to set a workbook's property to shared.

  • Thread starter Thread starter mika.
  • Start date Start date
M

mika.

Can someone tell me how I can set a workbook's property to
shared using VBA? I know that
ThisWorkbook.MultiUserEditing
checks to see if it is shared, but how would one set the
workbook to shared?

Thanks for the help.
 
I started a new workbook and recorded a macro as I swapped back to a different
workbook and shared that.

This is what got recorded:

Option Explicit
Sub Macro4()
ActiveWindow.ActivateNext
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.SaveAs Filename:="C:\My Documents\excel\book2.xls", _
AccessMode:=xlShared
End Sub

I bet it's enough to get started.
 
Back
Top