VBA bijwerken inhoudsopgave werkt niet in beveiligd formulier

Status
Niet open voor verdere reacties.
Zoiets:
Code: 
ActiveDocument.UnProtect "WachtWoord"
For Each toc In ActiveDocument.TablesOfContents
    toc.Update
Next toc
ActiveDocument.Protect "WachtWoord"
 
Bedankt voor de voorzet edmoor,
daarom oudere oplossing van OctaFish gebruikt...

Code: 
ActiveDocument.Unprotect
For Each toc In ActiveDocument.TablesOfContents
    toc.Update
Next toc
ActiveDocument.Protect wdAllowOnlyFormFields
 
Helaas wist deze code OOK alle ingevulde tekstvelden (veldcodes oude formulieren), omdat blijkbaar niet alleen de inhoudsopgave (toc) bijwerkt.
Dus nog geen oplossing om inhoudsopgave (toc) bij te werken.

Ook volgende code heeft helaas hetzelfde effect.
Code: 
ActiveDocument.Unprotect
If ActiveDocument.TablesOfContents.Count = 1 Then _
  ActiveDocument.TablesOfContents(1).Update
ActiveDocument.Protect wdAllowOnlyFormFields
 
Laatst bewerkt:
Laatste functioneert wel en wist niet de ingevulde tekstvelden ...
 
Zou geen verschil mogen maken, want in essentie zijn de twee functies hetzelfde. Wél is het zo dat je in een document kan instellen of ingevulde velden leeggemaakt moeten worden, of de ingevulde waarden moeten houden. Blijkbaar heb je dáár mee zitten rommelen :).
 
Juiste woordkeuze OctaFish, maar daar ben ik een heel eind mee gekomen :)

Klopt dat heb ik er nu wel instaan ...
Code: 
ActiveDocument.Unprotect '"Wachtwoord"
ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True , password:="Wachtwoord"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan