two macro's
protect and unprotect


Sub protect()
For Each sheet In Sheets
On Error Resume Next
sheet.Protect ("yourword")
Next
ActiveWorkbook.Protect ("yourword")
Application.StatusBar = ""
End Sub

Sub unprotect()
ActiveWorkbook.Unprotect ("yourword")
For Each sheet In Sheets
On Error Resume Next
sheet.Unprotect ("yourword")
Next
Application.StatusBar = "NOT sealed"
End Sub



Application.StatusBar = "NOT sealed"
this line indicates in the statusbar at the bottom of the excel window
whether the sheet is protected or not
when you install the macro link it to a shortcut key combination

--
Greetings from New Zealand

"joec" wrote in message
...
is there any simple way to protect or unprotect multiple worksheets at
once?
--
joec