Button om een nieuwe rij toe te voegen in Word Formulier

[bertholdmaes]

Hallo,

Ik heb een vraagje omtrent een word formulier.

Ik heb in mijn formulier een button nodig die een extra rij toevoegd in mijn formulier.

Dit was me gelukt met volgende code op een button te plaatsen:


Visual Basic code:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 4/17/2008 by Bertel'
Selection.InsertRowsBelow 1
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.FormFields.Add Range:=Selection.Range, Type:= _
wdFieldFormTextInput
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.FormFields.Add Range:=Selection.Range, Type:= _
wdFieldFormTextInput
Selection.MoveRight Unit:=wdCell
Selection.FormFields.Add Range:=Selection.Range, Type:= _
wdFieldFormTextInput
Selection.MoveRight Unit:=wdCell
Selection.FormFields.Add Range:=Selection.Range, Type:= _
wdFieldFormTextInput
End Sub



Maar eenmaal ik mijn formulier LOCK(protect) dan weigert hij de macro uit te voeren. Heeft iemand er een idee van hoe ik dmv VBcode een formulier kan UNLOCKEN in het begin van de macro en terug LOCKEN op het eind van de macro?

Alvast bedankt!!!

Bertel

 

[gast0667]

Code voor unlocken:

ActiveDocument.Unprotect

Code voor beveiligen:

ActiveDocument.Protect Password:="ok", NoReset:=False, Type:= _
        wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True

Waarbij: Password:="ok" uiteraard je gewenste wachtwoord is.
Je moet bij de code voor beveiligen even kijken wat je wel en niet True of False wilt hebben.
(Ik heb deze niet getest, ben niet echt bekend met programmeren in Word, eerder in Excel)