J'ai un doc contenant de multiples sections.
J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les
sections contenant des champs formulaires par exemple des CheckBox puis
protège toute la section.
D'avance je vous remercie de votre aide et vous souhaite une douce soirée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'Patrick' nous a écrit ...
J'ai un doc contenant de multiples sections. J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les sections contenant des champs formulaires par exemple des CheckBox puis protège toute la section.
Public Sub VerrouillerSectionsFormulaires() Dim S As Section For Each S In ActiveDocument.Sections S.ProtectedForForms = S.Range.FormFields.Count > 0 Next S ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub
Anacoluthe « On se protège des autres au lieu de se protéger de soi-même. » - Michel RANDOM
Bonjour !
'Patrick' nous a écrit ...
J'ai un doc contenant de multiples sections.
J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les
sections contenant des champs formulaires par exemple des CheckBox puis
protège toute la section.
Public Sub VerrouillerSectionsFormulaires()
Dim S As Section
For Each S In ActiveDocument.Sections
S.ProtectedForForms = S.Range.FormFields.Count > 0
Next S
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub
Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM
J'ai un doc contenant de multiples sections. J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les sections contenant des champs formulaires par exemple des CheckBox puis protège toute la section.
Public Sub VerrouillerSectionsFormulaires() Dim S As Section For Each S In ActiveDocument.Sections S.ProtectedForForms = S.Range.FormFields.Count > 0 Next S ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub
Anacoluthe « On se protège des autres au lieu de se protéger de soi-même. » - Michel RANDOM
Patrick
Merci infiniment "Anacoluthe" Cela est parfait.
Bon week end Patrick
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Patrick' nous a écrit ...
J'ai un doc contenant de multiples sections. J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les
sections contenant des champs formulaires par exemple des CheckBox puis protège toute la section.
Public Sub VerrouillerSectionsFormulaires() Dim S As Section For Each S In ActiveDocument.Sections S.ProtectedForForms = S.Range.FormFields.Count > 0 Next S ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub
Anacoluthe « On se protège des autres au lieu de se protéger de soi-même. » - Michel RANDOM
Merci infiniment "Anacoluthe"
Cela est parfait.
Bon week end Patrick
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:e52fvrcVEHA.2928@tk2msftngp13.phx.gbl...
Bonjour !
'Patrick' nous a écrit ...
J'ai un doc contenant de multiples sections.
J'aimerai par vba que ma procédure vba parcours tout mon doc et repère
les
sections contenant des champs formulaires par exemple des CheckBox puis
protège toute la section.
Public Sub VerrouillerSectionsFormulaires()
Dim S As Section
For Each S In ActiveDocument.Sections
S.ProtectedForForms = S.Range.FormFields.Count > 0
Next S
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub
Anacoluthe
« On se protège des autres au lieu de se protéger de soi-même. »
- Michel RANDOM
J'ai un doc contenant de multiples sections. J'aimerai par vba que ma procédure vba parcours tout mon doc et repère les
sections contenant des champs formulaires par exemple des CheckBox puis protège toute la section.
Public Sub VerrouillerSectionsFormulaires() Dim S As Section For Each S In ActiveDocument.Sections S.ProtectedForForms = S.Range.FormFields.Count > 0 Next S ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub
Anacoluthe « On se protège des autres au lieu de se protéger de soi-même. » - Michel RANDOM
