Discussion :

[November-Oscar]

Bonjour
Voilà. J'ai un problème. Je vais tenté de l'exprimer simplement.
1- mon document comporte du code VBA avec notamment à l'ouverture du document une commande qui va me protège le document et les styles qui ont été limités à certains styles. La commande que j'ai intégré est la suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Blocage-des_styles()
    On Error Resume Next
    ActiveDocument.Protect Type:=wdNoProtection, EnforceStyleLock:=True
End Sub

2- Comme je l'ai dit plus haut, j'ai limité la liste des styles à une certaine liste. D'habitude il y avait une protection sans mot de passe mais des petits malins ont appris à enlever la protection. Donc je souhaite mettre une protection avec mot de passe lors de l'utilisation normal WORD par l'administrateur.

3- le problème c'est que mon code en 1 me fait sauter la protection...

4- je souhaiterais modifier mon programme 1 en lui disant si le document est protégé par un mot de passe alors passe ton chemin...

5- dans un endroit endroit de mon code, j'utilise la fonction suivante pour savoir si le document est protégé ou non (par mot de passe ou sans mot de passe)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function IsProtected() As Boolean
    On Error Resume Next
    VBA.Err.Clear
    ActiveDocument.Unprotect
    If (VBA.Err.Number > 0) Then
        IsProtected = False
    Else
        Blocage_des_styles
        IsProtected = True
    End If
End Function

Bref, je suis preneur de vos idées. Merci d'avance.
CH

[November-Oscar]

Bon, j'ai réussi à me débrouiller...
1- j'ai créé cette fonction ==> le fichier est-il verrouillé par un mot de passe ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function IsProtectedbyMDP() As Boolean
IsProtectedbyMDP = False
On Error Resume Next
    VBA.Err.Clear
    ActiveDocument.Unprotect
    'L'erreur n°5485 est l'erreur liée à l'absence de mot de passe
    If (VBA.Err.Number = 5485) Then IsProtectedbyMDP = True
End Function

2- puis je teste cette fonction avant de bloquer les styles (à comparer avec la version initiale du message)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Blocage_des_styles()
    If Not IsProtectedbyMDP Then
        ActiveDocument.Protect Type:=wdNoProtection, EnforceStyleLock:=True
    End If
End Sub