Zellengesperrt mit VBA übergehen
17.08.2004 10:31:20
Angie
ich habe eine Arbeitsmappe wo die Zellen gesperrt und das Blatt geschütz ist.
Da diese Arbeitsmappe wird von mehrern Leute verwendet, deswegen brauche ich den Schutz auf die Zellen das nichts anderes eigetragen werden kann. Jetzt habe ich aber ein VBA Code wo die Leute in der Urlaubsliste ihren geplanten Urlaub eintragen können indem sie den Bereich makieren und auf den Button drücken(Das dadurch makiert feld wird dann ein blaues "U" eingetragen ). Da aber die Zellen gesperrt sind sag er mir jedesmal
"Die Bold-Eigenschaft des Font-Objektes kann nicht festgelegt werden"
Ist es möglich das man trotz schutz auf die Zellen und Blattschutz NUR mit dem VBA-Code etwas in eine Zelle eintragen kann, und dass bei Tastatureingabe der Schutz angezeigt wird ? Ich weiß das hört sich ziemlich Kompliziert an, aber vielleich hat jemand von euch Rat wie ich dieses Problem beheben kann.
Hier noch der VBA Code mit was das eingetragen wird.
Sub U_Urlaub_geplant()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle.Value = "U"
Zelle.Font.Bold = True
Zelle.Font.ColorIndex = 5
Next Zelle
End Sub
Liebe Grüße und vielen Dank im vorraus für Eure hilfe
Eure Angie