Protection sur toutes les feuilles de calcul avec Excel VBA

Avant d’envoyer notre cahier au monde, nous devrons peut-être nous assurer que toutes ses feuilles sont protégées. Au lieu d’inclure manuellement la protection de chacun d’entre eux, vous pouvez utiliser la macro à cette fin.
Dans cette macro, les feuilles sont traitées par une boucle dans laquelle la protection leur est fournie. Le paramètre Password spécifie le mot de passe nécessaire pour supprimer la protection. Cet argument est complètement optionnel. S’il est omis, la feuille sera toujours protégée, mais il ne sera pas nécessaire d’entrer un mot de passe pour supprimer la sécurité. Il convient également de rappeler que pour les balises dans Excel, la taille des caractères est importante. Par conséquent, lorsqu’on donne un mot de passe, il convient de prêter attention à cet aspect.

Sub ProtectionFeuille()
'Étape 1: Déclarez la variable
Dim mafeuille As Worksheet
'Étape 2: Commencez la boucle pour toutes les feuilles
For Each mafeuille In ActiveWorkbook.Worksheets
'Étape 3: Activez la protection et passez à la feuille suivante.
mafeuille.Protect Password:="CHANCELIN"
Next mafeuille
End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x