Password protecting certain worksheets in a file

How do I set passwords to protect just certain worksheets
in a file?

If you mean worksheet passwords, one way:

Public Sub ProtectSomeButNotAll()
Const sPWORD As String = "drowwsap"
Dim vSheets As Variant
Dim i As Long
vSheets = Array("Sheet1", "Sheet3", "Sheet5")
For i = LBound(vSheets) To UBound(vSheets)
Worksheets(vSheets(i)).Protect sPWORD
Next i
End Sub


In article <071001c53487$7cdd3bb0$a601280a@phx.gbl>,
"Mike" <anonymous@discussions.microsoft.com> wrote:

> How do I set passwords to protect just certain worksheets
> in a file?