Another newbie question - Passwordprotect SOME sheets Macro

[dugong]

Hello again

I have seen the macro that password-protects ALL sheets in an excel file, i.e.:

Sub ProtectAllSheets()
'Protect sheets - using password
Dim ws As Worksheet
Dim sOrigSheet As String
Dim sOrigCell As String
Dim J As Integer

Application.ScreenUpdating = False
sOrigSheet = ActiveSheet.Name
sOrigCell = ActiveCell.Address

For Each ws In Worksheets
ws.Select
ws.Protect Password:="test"
Next ws

Application.GoTo Reference:=Worksheets("" & sOrigSheet & "").Range("" & sOrigCell & "")
Application.ScreenUpdating = True
End Sub

How do you adapt it to password-protect only say the 3,4,5 & 9 sheets in an 11-sheet file?

Thanks again - and apologies if these seem dumb questions I will also do a search in case it has been answered previously.

Dugong

 

[SteveO59L]

Something like

For Each ws In Worksheets
If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Or ws.Name = "Sheet3" Then

ws.Select
ws.Protect Password:="test"
End If

Next ws

 

[Peter_SSs]

.. or perhaps this structure?

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ProtectSome()
    <SPAN style="color:#00007F">Dim</SPAN> SheetToProtect(3) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
    
    SheetToProtect(1) = "Sheet1"
    SheetToProtect(2) = "Sheet5"
    Sheet<SPAN style="color:#00007F">To</SPAN>Protect(3) = "Sheet7"
    <SPAN style="color:#00007F">For</SPAN> i = 1 To 3
        Worksheets(SheetToProtect(i)).Protect Password:="test"
    <SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[dugong]

Thank you.. I will try these suggestions

Thanks for taking the time to reply.