Unprotecting not working in Shared workbook

I am using Excel 97.

I have shared a workbook but the unprotecting code which worked fine when it
wasn't shared:

Worksheets("Data").Unprotect Password:="maw3327"

is causing a runtime of 1004, method of unprotecting not available.

To reprotect I am using:

Worksheets("Data").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:="maw3327"

I don't know whether this may potentially cause me a probblem because I
can't get that far!

Please can anyone else with a solution.


--
Mark

Try:

Password = "maw3327"
ActiveSheet.Protect Password, True, True, True


Password = "maw3327"
ActiveSheet.Unprotect Password

Hi Mark,

Shared workbooks are subject to a number of limitations.

See Limitations of shared workbooks in Excel help.

Pertinently, help says (inter alia):

'==================>>( Start quote)
In a shared workbook, you cannot do the following:


[cut]

Passwords
Assign a password to protect individual worksheets or the entire workbook.
Protection that you applied before sharing the workbook remains in effect
after you share the workbook.

Change or remove passwords. Passwords that you assigned before sharing the
workbook remain in effect after you share the workbook.
<<================== (End Quote)



---
Regards,
Norman



"Mark" <[email protected]> wrote in message
news:[email protected]...
>I am using Excel 97.
>
> I have shared a workbook but the unprotecting code which worked fine when
> it
> wasn't shared:
>
> Worksheets("Data").Unprotect Password:="maw3327"
>
> is causing a runtime of 1004, method of unprotecting not available.
>
> To reprotect I am using:
>
> Worksheets("Data").Protect DrawingObjects:=True, Contents:=True,
> Scenarios:=True, Password:="maw3327"
>
> I don't know whether this may potentially cause me a probblem because I
> can't get that far!
>
> Please can anyone else with a solution.
>
>
> --
> Mark