Oter et mettre protection sur un classeur, pb d’erreur
Résolu
mijean94
Messages postés
415
Date d'inscription
Statut
Membre
Dernière intervention
-
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
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 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- J'aime par erreur facebook notification - Forum Facebook
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