ich habe eine Mappe mit 26 Tabellenblättern.
Ich möchte, dass nur für die Tabellen 2 bis 25 der Blattschutz mittels Passwort für alle gleichzeitig gesetzt oder aufgehoben wird.
Mit folgenden Codes funktioniert es leider nur für alle 26 Tabellenblätter:
Sub BlattSchutz()
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
Next wks
Else: MsgBox ("Paßwort übereinstimmend eingeben")
End If
End Sub
Sub Aufheben()
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=myPwd
Next wks
End Sub
Danke für Eure Hilfe.