Ich suche eine Möglichkeit, alle Zellen im ausgewählten Bereich per VBA zu sperren, die einen Text (länger als ein Zeichen) enthalten.
Über die Suchfunktion habe ich nichts passendes gefunden. Hat jemand eine Idee?
Gruß Frank
Sub Makro1()
ActiveSheet.Unprotect
With Selection
.Cells.Locked = False
.SpecialCells(xlCellTypeConstants).Locked = True
End With
ActiveSheet.Protect
End Sub
Sub Makro1()
Dim c As Range
ActiveSheet.Unprotect
With Selection
.Locked = False
For Each c In .Cells
If Len(c) > 1 Then c.Locked = True
Next c
End With
ActiveSheet.Protect
End Sub
cu