Your macro works on the activeworkbook. If your 6 sheet workbook isn't the
activeworkbook, then it will not have it's sheets unprotected. You can do
(adjust both macros)

Private Sub ProtectionOff()
Dim ws As Worksheet
For Each ws In Workbooks("Mybook.xls").Worksheets
ws.Unprotect ("PassWord")
Next ws
End Sub

to specify exactly which workbook.

--
Regards,
Tom Ogilvy


"Pete" <psowerby@murton-view.freeserve.co.uk> wrote in message
news:1115715996.188995.131850@o13g2000cwo.googlegroups.com...
> I have a Workbook that contains 6 seperate Sheets. On the PC using this
> workbook, there can be 3 other workbooks open at the same time. To cut
> corners, I use the Sub below to remove protection from all Sheets in
> the Workbook that contains the 6 seperate sheets, and the following Sub
> to turn it back on, can you tell me if this is the correct method, or
> is there a better way. For some reason, I keep getting problems when
> trying to enter data i unprotected Cells, and was wondering if I am
> doing this wrong.
>
> Thanks
>
> Pete
>
>
> Private Sub ProtectionOff()
> Dim ws As Worksheet
> For Each ws In Worksheets
> ws.Unprotect ("PassWord")
> Next ws
> End Sub
>
>
> Private Sub ProtectionOn()
> Dim ws As Worksheet
> For Each ws In Worksheets
> ws.Protect Password:="PassWord"
> Next ws
> End Sub
>