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 72,3% France
Canada 5,3% Canada
Chine 3,7% Chine

Total:

154

Pays
018457994
Aujourd'hui: 179
Hier: 236
Cette semaine: 179
Semaine dernière: 2.729
Ce mois: 5.922