How do I Unprotect all sheets in a worksheet at once?

This is rather an FAQ, but here's one way (you need to use a macro):

Public Sub UnProtectAll()
Const sPWORD As String = "drowssap"
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect sPWORD
Next ws
End Sub

You can find more in the archives:

http://groups.google.com/advanced_gr...ugroup=*excel*


In article ,
"BC@D" wrote:

How do I Unprotect all sheets in a worksheet at once?