That second set of instructions is to protect the workbook's project so that the
users can't see the code (and any included password).

If you want to protect each sheet with the same password, you could use:

Sub LockDown()
For Each ws In Worksheets
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
password:="topsecret"
Next ws
End Sub

Sub UnlockAll()
For Each ws In Worksheets
ws.Unprotect password:="topsecret"
Next ws
End Sub

But if the user knows how to get the the VBE, they can read your code and see
the password. That's where the project protection comes in.

ps. Change "topsecret" to your password in both spots.

Jane wrote:

Sooner I have asked for an easy way to lock all the sheets in a spredsheet
and I got the very useful answer:

Sub LockDown()
For Each ws In Worksheets
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Sub UnlockAll()
For Each ws In Worksheets
ws.Unprotect
Next
End Sub

But I like to protect my spredsheet with a password, so the user can't
remove the protection. To that question I got the following answer:

"Open your workbook
Open the VBE (alt-f11)
select your poject
Tools|VBAProject Properties|Protection tab
Give it a memorable password.

Save your workbook, close it and reopen it to test that protection"

But I can't make that work - why?

Jane

--

Dave Peterson