Either protect each sheet manually or use this macro.

With a list of passwords in first sheet in A1:A7

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:=Sheets(1).Cells(n, 1).Value
Next n
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP


On Wed, 10 Oct 2007 22:16:00 -0700, MelB wrote:

I have a workbook with seven worksheets. I would like to create a unique
password for each of the seven worksheets within the workbook. Is this
possible, if so how is it done?