How do I Unprotect all sheets in a worksheet at once?
J JE McGimpsey Nov 25, 2005 #2 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_group_search?as_ugroup=*excel*
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_group_search?as_ugroup=*excel*
