Oter et mettre protection sur un classeur, pb d’erreur
Résolu
mijean94
Messages postés
417
Statut
Membre
-
mijean94 Messages postés 417 Statut Membre -
mijean94 Messages postés 417 Statut Membre -
Bonjour à tous,
Je suis sous wort 2003,
J’ai mis en place deux petites macro pour réaliser les fonctions mise en place et retrait protection :
Sub retrait_protection_doc()
ActiveDocument.Unprotect Password:="xxxxxx"
Call couleur_papier
End Sub
Sub protection_doc()
Call couleur_papier_b
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="xxxxxx"
End Sub
Mon problème :
Si le classeur est protégé et que je lance par erreur la procédure de protection : il y a une erreur
Le même problème pour le retrait protection.
Avez-vous une solution à ce problème ?
Merci d’avance
Bien cordialement
Je suis sous wort 2003,
J’ai mis en place deux petites macro pour réaliser les fonctions mise en place et retrait protection :
Sub retrait_protection_doc()
ActiveDocument.Unprotect Password:="xxxxxx"
Call couleur_papier
End Sub
Sub protection_doc()
Call couleur_papier_b
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="xxxxxx"
End Sub
Mon problème :
Si le classeur est protégé et que je lance par erreur la procédure de protection : il y a une erreur
Le même problème pour le retrait protection.
Avez-vous une solution à ce problème ?
Merci d’avance
Bien cordialement
A voir également:
- Oter et mettre protection sur un classeur, pb d’erreur
- K9 web protection - Télécharger - Contrôle parental
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
2 réponses
Bonjour
Oui il y a une erreur car si le doc est protégé, on ne peut plus le protéger.
Il faut mettre la condition :
et l'inverse pour l'autre macro.
m@rina
Oui il y a une erreur car si le doc est protégé, on ne peut plus le protéger.
Il faut mettre la condition :
Sub protection_doc()
If ActiveDocument.ProtectionType = wdNoProtection Then
Call couleur_papier_b
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="xxxxxx"
Else msgbox "Le document est déjà protégé"
End Sub
et l'inverse pour l'autre macro.
m@rina
Bonjour,
A force de rechercher j'ai trouvé la solution,
'Retrait protection du document
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="xxxxxx"
' xxxxx = mots de passe
End If
'mise en place protection du document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="xxxxxx"
' xxxxx = mots de passe
End If
Bien cordialement
A force de rechercher j'ai trouvé la solution,
'Retrait protection du document
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="xxxxxx"
' xxxxx = mots de passe
End If
'mise en place protection du document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="xxxxxx"
' xxxxx = mots de passe
End If
Bien cordialement
Je vient juste de voir ton message.
Merci pour la réponse, je viens juste de trouver la solution, mais ta proposition est bien mieux avec le petit message.
Bien cordialement