Sub toggleprotect()
With ActiveSheet
If .ProtectContents = True Then
.Unprotect
Else
.Protect
End If
End With
End Sub


--
Don Guillett
SalesAid Software

"Rob F" wrote in message
...
Hi

Can anyone provide two simple macros to protect all sheets
in a workbook, and the opposite - i.e. unprotect all
sheets?

Ideally, I'd then like to move on to designing a form that
lists all the worksheets that I can toggle protection or
or off from. But first things first!

Thanks

Rob F