password protecting worksheet
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?
|