Deprecated: RegularLabs\Library\ArrayHelper::implode(): Implicitly marking parameter $last_glue as nullable is deprecated, the explicit nullable type must be used instead in /homepages/10/d550841420/htdocs/libraries/regularlabs/src/ArrayHelper.php on line 225
Comment, par VBA, protéger et déprotéger un document ?

Recherche

On parle ici de la protection à laquelle vous avez accès sous l'onglet Révision : Protéger => Restreindre la modification

 

Si vous souhaitez protéger et déprotéger via VBA, vous devez d'abord vérifier que le document est bien protégé ou non selon le cas, sinon vous allez générer une erreur.

 

Voici une macro qui vérifie que le document n'est pas déjà protégé, et le protège en mode formulaire, avec le mot de passe "toto"

Sub protection()
  If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="toto"
  Else:MsgBox "votre document est déjà protégé"
  End If
End Sub

 

 Et voici l'inverse, une macro qui déprotège, quelle que soit le type de protection choisi, mais vérifie d'abord que le document n'est déjà pas protégé :

Sub oter_protection()
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="toto"
Else: MsgBox "votre document n'était pas protégé"
End If
End Sub

Statistiques

France 70,6% France
Chine 5,5% Chine
Canada 5,0% Canada

Total:

163

Pays
018501859
Aujourd'hui: 33
Hier: 192
Cette semaine: 33
Semaine dernière: 2.469
Ce mois: 4.874