Guten Morgen,
ich habe ein gesperrtes Dokument, in das ich eine Textbox einfügen möchte, die ich dann frei beschreiben und verschieben kann.
Dazu hebe ich zu Beginn des Makros die Sperrung auf, füge die Textbox ein und sperre das Dokument wieder.
Sub Pos_Number()
'
' Pos_Number Makro
' Adds a pos number to the drawing
'
'
ActiveSheet.Unprotect Password:="1234"
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 235.9090551181, _
327.2727559055, 19.0909448819, 20.454488189).Select
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset1
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 1.5
End With
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "1"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 14
.Name = "+mn-lt"
End With
Selection.Locked = msoFalse
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "1"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 14
.Name = "+mn-lt"
End With
ActiveSheet.Protect Password:="1234"
End Sub
In den Eigenschaften der Textbox ist eigentlich zu sehen, dass bei "gesperrt" und bei "Text sperren" jeweils keine Haken gesetzt sind, allerdings ist es trotzdem nicht möglich, den Text zu ändern. Die Box zu verschieben und in der Größe
zu ändern ist aber möglich.
Gibt es einen Befehl, mit dem ich nochmal extra die Sperrung des Inhaltes des Textfeldes aufheben kann?
Vielen Dank und viele Grüße,
Arne