Blattschutz-Problem
Tom
Bei meinem Problem geht es um das Thema Blattschutz bzw. besser Blätter-Schutz. Ich habe eine excel-Datei mit ca. 50 verschiedenen Arbeitsblättern. Die gesamte Datei ist durch
e i n Passwort geschützt. Das dahinterliegende Makro lautet:
Sub BlattSchutz()
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
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
End Sub
Wer kann mir helfen? Das Makro oben habe ich übrigens nicht selbst geschrieben...
Vielen Dank vorab
Tom