Password protecting certain worksheets in a file

  • Thread starter Thread starter Mike
  • Start date Start date
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can Anyone Suggest a Way to Remove a Password from a PST File Without Outlook? 1
Excel Protection 2
workbook password lost, how to reset or remove 2
PASSWORD PROTECTING SECTIONS OF A WORKSHEET 3
How to I reset a forgotten Excel worksheet protection password? 3
corrupted formula in protected worksheet 21
password protect allowances 1
automatic updates while worksheet is protected 1

Back
Top