VBA Word - Probleme pour proteger le formulaire !!!
benco73
Messages postés5Date d'inscriptionmercredi 12 avril 2006StatutMembreDernière intervention14 avril 2006
-
12 avril 2006 à 18:19
benco73
Messages postés5Date d'inscriptionmercredi 12 avril 2006StatutMembreDernière intervention14 avril 2006
-
13 avril 2006 à 19:14
bonjour, j'ai un souci avec mon code. Quand je veux reproteger mon formulaire
celui ne passe pas, debogage !!! ce formulaire est fait sous Word...
Code:
Private Sub CommandButton1_Click()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.Unprotect
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
Selection.TypeText Text:="N° " & num & "/2006"
num = Right("0000" & num, 4)
SendKeys "o"
ActiveDocument.SaveAs FileName:="N" & num & ".doc"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub
J'ai essayé de reproteger en choississant modifications et commentaires,
ceux ci passent, il n'y a pas de debogage, mais quand on veut reproteger le
"formulaire" là c impossible !!!!
Quelqu'un connait il une solution ? merci d'avance
Benco
A voir également:
VBA Word - Probleme pour proteger le formulaire !!!
cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007 13 avril 2006 à 08:58
Bonjour,
en début de code si tu ve désactiver la protection
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect ' "motdepas" si tu as mis un mot de passe
End If
en fin de code pour réactiver la protection
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect wdAllowOnlyFormFields' , , "mot de passe"
End If
cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007 13 avril 2006 à 14:51
re,
Euh moi, jarrive à mettre un numéro que si je met pas les lignes suivante:
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
c'est un problème de référence chez moi vu que j'ai pas ce qui correspond a ton template "numéro".
Vérifie que tu as bien déclaré tes variables! (dim num as string)
cela veux peut etre dire qui ne reconnais pas
ton commandbutton il est où? sur un form de ton fichier Word? ou sur un form de vb?