Sub Blattschutzrein()
Dim objWks_1 As Worksheet
Dim objWks_2 As Worksheet
Dim objWks_3 As Worksheet
Dim objWks_4 As Worksheet
Dim objWks_5 As Worksheet
Dim objWks_6 As Worksheet
Application.ScreenUpdating = False
Set objWks_1 = ThisWorkbook.Worksheets("Tabelle1")
objWks_1.Protect Password:="Passwort"
Set objWks_2 = ThisWorkbook.Worksheets("Tabelle2")
objWks_2.Protect Password:="Passwort"
Set objWks_3 = ThisWorkbook.Worksheets("Tabelle3")
objWks_3.Protect Password:="Passwort"
Set objWks_4 = ThisWorkbook.Worksheets("Tabelle4")
objWks_4.Protect Password:="Passwort"
Set objWks_5 = ThisWorkbook.Worksheets("Tabelle5")
objWks_5.Protect Password:="Passwort"
Set objWks_6 = ThisWorkbook.Worksheets("Tabelle6")
objWks_6.Protect Password:="Passwort"
Application.ScreenUpdating = False
End Sub