exempel där du skapar en vektor/array av "Blad4", "Blad5", "Blad6" och anger lösenordet till "lösenord":

Sub Makro1()

Dim blad As Worksheet

    For Each blad In Worksheets(Array("Blad4", "Blad5", "Blad6"))

        blad.Select

        ActiveSheet.Protect Password:="lösenord", DrawingObjects:=True, Contents:=True, Scenarios:=True

    Next blad

End Sub

Då får anpassa skyddet genom att ändra:  DrawingObjects:=True, Contents:=True, Scenarios:=True

 Worksheet.Protect method (Excel) | Microsoft Learn

Du behöver inte använda en array utan kan lopa igenom arbetsböcker. Exempel som börjar på 4:e bladetoch fortsätter till den sista 

Sub Makro2()

Dim i As Integer

    For i = 4 To Worksheets.Count

        Worksheets(i).Select

        ActiveSheet.Protect Password:="lösenord", DrawingObjects:=True, Contents:=True, Scenarios:=True

    Next i

End Sub

Och om du har riktigt tråkigt kan du fråga efter lösenordet istället för att hårdkoda

Sub Makro3()

Dim i As Integer

Dim strLösen As String

strLösen = InputBox("Ange lösenord som skall användas")

    For i = 4 To Worksheets.Count

        Worksheets(i).Select

        ActiveSheet.Protect Password:=strLösen, DrawingObjects:=True, Contents:=True, Scenarios:=True

    Next i

End Sub