VBA: Ausgewählt Blätter passwortschützen

Sub Blattschutz_ein_mit_Passwort()
Sheets("Tabelle1").Protect Password:="meinPasswort"
End Sub

Sub PasswortAufAlleTabellenblätterSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("meinPassswort")
Next i
End Sub

Sub BlattschutzBeiMehrerenBlättern()
Sheets(Array("Tabelle1", "Tabelle2")).Protect Password:="meinPasswort"
End Sub

Sub MehrereBlätterSchützen()
Dim Blatt As Object, sh As Object
For Each Blatt In Worksheets
Select Case Blatt.Name
Case "Tabelle1", "Tabelle3"
'Keine Aktion ausführen
Case Else
Sheets(Blatt.Name).Select False
End Select
Next Blatt
For Each sh In ActiveWorkbook.Protect Password:="meinPasswort"
Next
End Sub