Use these 2 macros to protect and unprotect all sheets:
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim strPassWord As String
strPassWord = "apple" '<--- set password here
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:=strPassWord
Next
End Sub
Sub UnprotectAllSheets()
Dim ws As Worksheet
Dim strPassWord As String
strPassWord = "apple" '<--- set password here
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:=strPassWord
Next
End Sub
---
Put the code in a regular/standard module. If you've never worked with
macros before, see:
http://office.microsoft.com/en-us/as...047111033.aspx
and
http://www.mcgimpsey.com/excel/modules.html
HTH
Jason
Atlanta, GA
"Sussex Fran" wrote:
If a workbook contains, say 20 worksheets, is there a way of
protecting/unprotecting all the sheets at the same time to avoid going into
each one separately to protect?
Using Office Excel 2003.