Macro bug with Sharing and Unsharing

[ChemistB]

I wrote two simple macros to share and unshare my workbook. The Unshare one works and the share one does not. Where's my error?

Here's the unshare one (which works);

Sub Unshare()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.UnprotectSharing (PWORD)
End Sub

Here's the Share one that does not work;

Sub share()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.ProtectSharing sharingpassword:=PWORD
End Sub

Thanks for any help.

ChemistB

[Carim]

Hi,

Following should help ...

Please Login or Register  to view this content.

HTH
Carim

[ChemistB]

After some serious trial and error investigation, here's what I've found;

If the workbook is unprotected, then the macros work fine. If the workbook is protected, then it crashes when I go to "protect and share." These two functions normally work fine together (outside of macros) and I use them for different reasons.

I need the workbook protected because that disables the user from unhiding worksheets within it.

I need the workbook shared and protected because that automatically disables macro editing and also enables the track changes.

Any suggestions?
Where I originally thought I was not setting up the macro properly to point to the right workbook, it definitely looks like a Microsoft bug now. Is there an email address to report such bugs? Thanks.

Original Post:
I wrote two simple macros to share and unshare my workbook. The Unshare one works and the share one does not. Where's my error?

Here's the unshare one (which works);

Sub Unshare()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.UnprotectSharing (PWORD)
End Sub

Here's the Share one that does not work;

Sub share()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.ProtectSharing sharingpassword:=PWORD
End Sub