Méthode Workbook.ProtectSharing (Excel)

Article
04/07/2023

Cette méthode enregistre le classeur et le protège contre le partage.

Syntaxe

expression. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

Expression Variable qui représente un objet Workbook .

Parameters

Nom	Requis/Facultatif	Type de données	Description
FileName	Facultatif	Variant	Chaîne indiquant le nom du fichier enregistré. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier actif.
Password	Facultatif	Variant	Chaîne qui distingue les majuscules des minuscules et indique le mot de passe de protection à donner au fichier. Ce mot de passe ne peut pas excéder 15 caractères.
WriteResPassword	Facultatif	Variant	Chaîne indiquant le mot de passe réservant l'accès du fichier en écriture. Si un fichier est enregistré avec le mot de passe et que le mot de passe n’est pas fourni lors de l’ouverture du fichier, le fichier est ouvert en lecture seule.
ReadOnlyRecommended	Facultatif	Variant	True pour afficher un message à l'ouverture du fichier recommandant qu'il soit ouvert en lecture seule.
CreateBackup	Facultatif	Variant	True pour créer un fichier de sauvegarde.
SharingPassword	Facultatif	Variant	Chaîne indiquant le mot de passe à utiliser pour protéger le fichier contre le partage.
FileFormat	Facultatif	Variant	Chaîne indiquant le format de fichier.

Remarques

Utilisez des mots de passe forts qui combinent des majuscules, des minuscules, des chiffres et des symboles. Les mots de passe faibles ne regroupent pas ces éléments.

Mot de passe fort : Y6dh!et5
Mot de passe faible : House27

Les mots de passe doivent contenir au moins 8 caractères. Il est préférable d’utiliser une phrase secrète contenant au moins 14 caractères. Il est essentiel que vous vous souveniez de votre mot de passe. Si vous l’oubliez, Microsoft ne pourra pas le récupérer. Stockez les mots de passe que vous écrivez en lieu sûr et à l’écart des informations qu’ils aident à protéger.

Exemple

Cet exemple montre comment enregistrer le classeur Workbook1 et le protéger contre le partage.

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.