meine excel-Datei umfasst ca. 50 Tabellenblätter, die durch folgendes Makro "auf einen Schlag" mit einem Blattschutz versehen werden können:
Sub A()
Sub BlattSchutz()
Application.ScreenUpdating = False
Dim wks As Worksheet
myPwd = Application.InputBox("Administrations-Passwort")
myPwd2 = Application.InputBox("Passwort bestätigen")
Range("E3").Select
Application.ActiveCell.FormulaR1C1 = "Der Blattschutzmodus ist aktiviert!"
Range("E3").Select
Selection.Font.ColorIndex = 43
Selection.Font.Bold = True
Range("F5").Select
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
Next wks
Else: MsgBox ("Paßwort übereinstimmend eingeben")
End If
Application.ScreenUpdating = True
End Sub
Ich müsste aber zwei Tabellenblätter von diesem Blattschutz ausnehmen. Diese wiederum sollen mit einem anderen Blattschutz (also anderem Passwort) geschützt werden.
Ich hatte hier im Forum bereits eine nahezu gleiche Frage gestellt und man hatte mir geholfen, indem im Code ein "On Error Resume Next" eingebaut wird. Es hat sich in der Praxis aber herausgestellt, dass sich dann die Passwörter irgendwann ins Gehege kommen und nicht mehr funktionieren bzw. "Unsinn" produzieren.
Kann mir jemand helfen?
Gruß
Tom