Hallo,
Ich habe den Blattschutz aktibviert, möchte aber in den ungeschützten Zellen weiterhin die Formatierungsfunktionen (Textfarbe,-Style ---ändern) nutzen.
Wer kann mir bei diesem "kleinen" Problem helfen ?
Robert
Hallo Robert!
Ein Ansatz.
Code gehört in das Modul der Tabelle! OptionExplicit
PrivateSub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 ThenExitSub If Target.Locked = FalseThen
Me.Protect Contents:=False Else
Me.Protect Contents:=True EndIf EndSub
Gruß Sepp
Anzeige
AW: Formatierung trotz Blattschutz
K.Rola
Hallo,
eigentlich das Gleiche wie von Josef nur etwas kompakter:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Me.Protect contents:=Target.Locked
End Sub
Gruß K.Rola