In Word Textbox mit vba schützen

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: In Word Textbox mit vba schützen

Re: In Word Textbox mit vba schützen

Beitrag von theoS » 02. Jul 2021, 11:46

Die Steuerelemente die du im Entwicklerbereich findest.
Da gibt es ein Textsteuerelement. Das hat in den Eigenschaften auch den Schutz versteckt.

Re: In Word Textbox mit vba schützen

Beitrag von Srcomprador » 02. Jul 2021, 09:04

Hallo theoS,

das verstehe ich nicht recht, was ist dann in meinem Fall das Steuerelement?

Re: In Word Textbox mit vba schützen

Beitrag von theoS » 01. Jul 2021, 19:53

Das kannst du mit Grafiken nur dann machen, wenn du den Anker in einem geschützten Bereich hast.
Das ist aber eigentlich Unfug, denn das geht mir einem Steuerelement viel eleganter.
Schau dir die mal an, die kann man auch vor Löschen und bearbeiten schützen.

In Word Textbox mit vba schützen

Beitrag von Srcomprador » 01. Jul 2021, 12:57

Hallo liebe Office-Word Gemeinde,

ich möchte in Word mit vba eine Textbox mit Inhalt erstellen, das ich dann auch noch danach nicht editierbar machen will!?
Dazu habe ich folgenden VBA-Code:

Code: Alles auswählen
Sub Vers1()
Dim shp As Word.Shape


Set shp = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=5, _
Top:=145, _
Width:=10, _
Height:=10, _
Anchor:=Selection.Paragraphs(1).Range)

With shp
.name = "V1_" & CStr(Rnd())
.LockAnchor = False

'.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
'.RelativeVerticalPosition = wdRelativeVerticalPositionPage

.LockAspectRatio = False
'.Top = CentimetersToPoints(2)
'.Left = CentimetersToPoints(5)
'.Width = CentimetersToPoints(13)
'.Height = CentimetersToPoints(3)
.IncrementTop 630.75
.IncrementLeft 68#
.ScaleWidth 45.98, msoFalse, msoScaleFromTopLeft
.ScaleHeight 5.26, msoFalse, msoScaleFromTopLeft

.Line.Visible = msoFalse

With .TextFrame.TextRange
.Text = "Blaaafasel-AG" & vbTab & vbTab & vbTab & "bank AG, xxxxxx" & vbTab & vbTab & "Aufsichtsratsvorsitzender:" & vbCr & "4711"
With .Font
.name = "Arial"
.Size = 6
End With
End With
End With

End Sub



Aber wie kann ich die Textbox dann auch vor Änderungen schützen!?
Da bräuchte ich Eure Hilfe, weil ich mit meinem Latein am Ende bin?

Nach oben