Word - Macro - Protection du document

Word - Macro - Protection du document - VB/VBA/VBS - Programmation

Marsh Posté le 24-03-2006 à 22:36:10    

Bonsoir à tous,
J'aimerais avoir une macro qui m'ôte la protection du document Word en modification si, seulement, celui-ci est protégé.
 
Sub Oter_protection()
    ActiveDocument.Unprotect ("didier" ) 'didier est mon mot de passe
End Sub
 
Avec cette macro, si le document n'est pas protégé, j'ai une erreur d'exécution.
 
Par avance merci

Reply

Marsh Posté le 24-03-2006 à 22:36:10   

Reply

Marsh Posté le 24-03-2006 à 23:00:20    

Regarde du côté de la propriété ProtectionType du document, tu devrais trouver ce que tu cherches...

Reply

Marsh Posté le 26-03-2006 à 20:09:39    

Le problème, c'est que je un peu nul en VBA  :(
Quelqu'un de plus compétent que moi pourrait peut être compléter le programme  :ange:

Reply

Marsh Posté le 26-03-2006 à 22:08:36    

Bonsoir,
Pour utiliser l'aide, il faut mettre l'index sur le mot clé et taper sur F1 et la doc s'ouvre avec des exemples qui permettent de progresser. Voici pour le code :

Sub Oter_protection()
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect "didier" 'didier est mon mot de passe
End If
'ou alors
On Error Resume Next
    ActiveDocument.Unprotect "didier" 'didier est mon mot de passe
On Error GoTo 0
End Sub


 Cordialement
Epéna

Reply

Marsh Posté le 29-03-2006 à 23:19:23    

Merci beaucoup :-)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed