How to Select Multiple Sheets in Excel

[jwindholz2725]

Can anyone please help? I currently have a code to protect all sheets at once with a password. (see below) The issue is this workbook gets passed around and people add new sheets. Thus when I lock workbook their sheets are locked as well. How can I lock say sheets "<" through ">"? On my template my sheets will always be between < and > and their sheets will remain outside the range.

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim N As Long
For N = 1 To Sheets.Count
Sheets(N).Protect _
Password:="locked", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False
Next N
Application.ScreenUpdating = True
End Sub

 

[VoG]

You could use for example

For N = 3 To 11

 

[jwindholz2725]

Thanks that works but the issue is I can add potentially a 100 sheets to my work book. So the number ranges would always change. So I need a something that protects say tab "<" to tab ">" specifically. That way anything I put in the middle of that will always get proctected.

 

[VoG]

Try

For i = 1 To Sheets.Count
    If Sheets(i).Name = "<" Then
        first = i
        Exit For
    End If
Next i
For i = 1 To Sheets.Count
    If Sheets(i).Name = ">" Then
        last = i
        Exit For
    End If
Next i
For N = first To last

 

[jwindholz2725]

That worked perfect!!! You're awesome...can't believe how quick the response was. Thank you very much!!!!!