Selektieren von Objekten
25.02.2006 22:23:14
Objekten
ich hätte eine Frage zum Thema "Selektieren von Objekten".
ist es möglich,nachfolgendes Makro ohne Selektieren der Textboxen
auszuführen ?
es geht hier um Textboxen der "Zeichnen-Leiste".
Sub Textb_Schutz()
Dim tb As Shape
ActiveSheet.Unprotect
With ActiveSheet
For Each tb In .Shapes
If tb.TextFrame.Characters.Text = "" Then
tb.Select
Selection.LockedText = False
Else
tb.Select
tb.LockedText = True
End If
Next
End With
ActiveSheet.Protect "tcip"
End Sub
Danke !
Grüße Hannes