Zellengesperrt mit VBA übergehen

Hi liebe Leute,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub U_Urlaub_geplant() Application.Unprotect "U" 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 Application.Protect "U" Next Zelle End Sub

Sub U_Urlaub_geplant() Dim Zelle As Range ActiveSheet.Unprotect Password:="Passwort" For Each Zelle In Selection If Zelle.Locked = False Then Zelle.Value = "U" Zelle.Font.Bold = True Zelle.Font.ColorIndex = 5 Next Zelle ActiveSheet.Protect Password:="Passwort" End Sub

Sub U_Urlaub_geplant() Dim Zelle As Range ActiveSheet.Unprotect Password:="Passwort" For Each Zelle In Selection If Zelle.Locked = False Then Zelle.Value = "U" Zelle.Font.Bold = True Zelle.Font.ColorIndex = 5 End If Next Zelle ActiveSheet.Protect Password:="Passwort" End Sub

Sub U_Urlaub_geplant() Dim Zelle As Range ActiveSheet.Unprotect Password:="Passwort" For Each Zelle In Selection Zelle.Value = "U" Zelle.Font.Bold = True Zelle.Font.ColorIndex = 5 Next Zelle ActiveSheet.Protect Password:="Passwort" End Sub

Sub U_Urlaub_geplant() Dim Zelle As Range ActiveSheet.Unprotect "passwort" For Each Zelle In Selection If Zelle.Locked = True Then Zelle.Value = "U" Zelle.Font.Bold = True Zelle.Font.ColorIndex = 5 End If Next Zelle ActiveSheet.Protect "passwort", UserInterfaceOnly:=True End Sub

Beliebteste Forumthreads (12 Monate)

Zellengesperrt mit VBA übergehen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread