How to use VBA to set WB to Shared Status
 

Hi All,
I have a macro that builds a new file based on an Accounts Receivable data
file each week.

I'm wondering how I can set the workbook Share settings from within VBA?
Or do I have to manually do it each time I create a new workbook?

Thanks,
MikeZz

How to use VBA to set WB to Shared Status
 

Try this:

ActiveWorkbook.SaveAs "C:\shared.xls", , , , , , xlShared

--
Conrad S
#Don''t forget to click "Yes" if this post was helpful!#


"MikeZz" wrote:

Hi All,
I have a macro that builds a new file based on an Accounts Receivable data
file each week.

I'm wondering how I can set the workbook Share settings from within VBA?
Or do I have to manually do it each time I create a new workbook?

Thanks,
MikeZz

How to use VBA to set WB to Shared Status
 

Geeze that was easy.... I thought of looking in Help under save as....
Thought it would be a workbook property set some other way.

Thanks for the help,
MikeZz

"Conrad S" wrote:

Try this:

ActiveWorkbook.SaveAs "C:\shared.xls", , , , , , xlShared

--
Conrad S
#Don''t forget to click "Yes" if this post was helpful!#


"MikeZz" wrote:

Hi All,
I have a macro that builds a new file based on an Accounts Receivable data
file each week.

I'm wondering how I can set the workbook Share settings from within VBA?
Or do I have to manually do it each time I create a new workbook?

Thanks,
MikeZz

How to use VBA to set WB to Shared Status
 

Correction... I NEVER thought of looking in help under Save As...

"MikeZz" wrote:

Geeze that was easy.... I thought of looking in Help under save as....
Thought it would be a workbook property set some other way.

Thanks for the help,
MikeZz

"Conrad S" wrote:

Try this:

ActiveWorkbook.SaveAs "C:\shared.xls", , , , , , xlShared

--
Conrad S
#Don''t forget to click "Yes" if this post was helpful!#


"MikeZz" wrote:

Hi All,
I have a macro that builds a new file based on an Accounts Receivable data
file each week.

I'm wondering how I can set the workbook Share settings from within VBA?
Or do I have to manually do it each time I create a new workbook?

Thanks,
MikeZz