Vba share workbook

[yoko]

Can vba be used to make a workbook shared? If so how?

Cheers,

 

[yoko]

Bump - Sorry

 

[Stormseed]

Bump - Sorry

If you have realized that this is an unwanted question posted by you, then why dont you go ahead and delete it?

 

[yoko]

Err because it’s not unwanted. I sill need an answer and 'bumped' it up the forum to make it more visible.

 

[Stormseed]

Oh ok...

My apologies. Let me know if you want me to delete my posts.

 

[gaj104]

Hi

The only way I can think to share macros is to have a seperate workbook which contains all your coding that everyone opens in read only mode, with vb references made to the shared book, if that makes sense?

It does mean that 2 workbooks are open, but maybe you you can put a note in the shared workbook for each user to open the "vba" workbook.

Hope it helps

 

[MorganO]

Yoko,

I've found a way to do what I think you want.

To share a workbook using vba use this code:

ActiveWorkbook.SaveAs FileName, , , , , , xlShared

Where 'FileName' is the path and name of your file. The file MUST be saved in order to enable sharing.

To unshare the workbook use this code:

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

I would recommend saving the file as well immediately after changing it from Shared to unshared:

ActiveWorkbook.SaveAs FileName

Hope this works for you.

Take Care.

Owen

 

[yoko]

Ah fantastic, Cheers!

 

[Blasphemer]

Fantastic trick :D

 

[neveu]

Hi,
i have one small question.

how can you use the code for unsharing after you shared the workbook, as when the workbook is share you can no longer access the macros?

Yoko,

I've found a way to do what I think you want.

To share a workbook using vba use this code:

ActiveWorkbook.SaveAs FileName, , , , , , xlShared

Where 'FileName' is the path and name of your file. The file MUST be saved in order to enable sharing.

To unshare the workbook use this code:

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

I would recommend saving the file as well immediately after changing it from Shared to unshared:

ActiveWorkbook.SaveAs FileName

Hope this works for you.

Take Care.

Owen