Only through a macro, put these 2 macros in a module (Alt + F11, insertmodule)

Sub ProtectMe()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
sh.Protect "xxxxx"
Next sh
Application.ScreenUpdating = True
End Sub

Sub UnProtectMe()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
sh.Unprotect "xxxxx"
Next sh
Application.ScreenUpdating = True
End Sub


replace "xxxxx" with whatever password you want to use
press Alt + q to close the VBE and save the workbook.
To run the macros press Alt + F8

Regards,

Peo Sjoblom

"Adam" wrote:

Hi

I'm using Excel 97 and get a bit annoyed having to Protect each worksheet
individually.

Is there a way where I can password protect all sheets in a workbook?

Please advise
--
Adam
-----------
Windows 98 + Office Pro 97