Hi
one way is to run the following code:
---
Sub ProtectAll()
For Each ws In Sheets
ws.Protect ("pwd")
Next
Set sh = ActiveSheet
varr = Array("Sheet1", "sheet3")
For i = LBound(varr) To UBound(varr)
With Worksheets(varr(i))
.Activate
.Unprotect ("pwd")
End With
Next
sh.Activate
End Sub
--
in the line
varr = Array("Sheet1", "sheet3")
list the names of the sheets you do not want protected.
note: this code applies a password of pwd to the protected sheets - if you
want another password just replace pwd (in 2 places) with the password you
want, if you don't want a password just delete the ("pwd") bit.
to use this code, right mouse click on any sheet tab, choose view code, to
display the vbe window, choose insert / module, copy & paste the code in
there, make the changes and then use ALT & F11 to switch back to your
workbook. Choose tools / macro / macros, find Protect all and choose RUN
