ich habe in einer Datei folgendes Makro hinterlegt um alle Blätter mit Blattschutz zu versehen: pre>
Sub AlleBlaetter_Schuetzen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect Password = ("AB")
ActiveSheet.EnableSelection = xlUnlockedCells
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Nun ist mir ausgefallen (natürlich erst nachdem ich dieses abgespielt habe), dass der Doppelpunkt hinter "Password" fehlt.
Nun sind zwar alle Seiten geschützt....aber mit welchem Code?
Kann mir wer helfen?
VG Katja