Zelllschutz locked
22.08.2003 10:25:45
Sven B
Sub protect_k6()
Dim iBlatt As Integer
For iBlatt = 2 To Worksheets.Count
Hallo Crackz,
möchte gern alle Tabellen ab Nummer 2 in einem Feld den Zellschutz aktivieren,
und noch ein paar farbformatierungen, der code sollte doch so funzen, tut er aber nicht. Woran liegts ?
Sub protect_k6()
Dim iBlatt As Integer
For iBlatt = 2 To Worksheets.Count
Worksheets(iBlatt).Unprotect password:="code"
Worksheets(iBlatt).Range("k6").Select
Selection.Locked = True
Selection.FormulaHidden = False
Worksheets(iBlatt).Range("k6").Font.ColorIndex = 48
Worksheets(iBlatt).Range("s6").Font.ColorIndex = 1
Worksheets(iBlatt).Range("y6").Font.ColorIndex = 1
Worksheets(iBlatt).Range("af6").Font.ColorIndex = 48
Worksheets(iBlatt).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="code"
Next iBlatt
End Sub