Comment utiliser des macros pour protéger toutes les feuilles de calcul d’un classeur
La protection des données dans les feuilles de calcul Excel est essentielle pour maintenir la sécurité et l’intégrité des informations. Dans un environnement de travail à plusieurs, le risque de modification ou de suppression accidentelle des données peut augmenter.
En protégeant vos feuilles de calcul, vous pouvez empêcher les modifications indésirables, garantir la sécurité des informations sensibles et limiter l’accès aux seuls utilisateurs autorisés.
Cette protection permet également de maintenir la cohérence des données et de réduire le risque d’erreurs.
Voici un exemple de code VBA que vous pouvez utiliser pour protéger toutes les feuilles de calcul d’un classeur avec un mot de passe :
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Protect Password:=password
Next ws
End Sub
Explication du code :
- Dim password As String : Déclare une variable de mot de passe pour stocker le mot de passe à utiliser.
- password =“Test123” : Définit la valeur par défaut du mot de passe. Vous pouvez remplacer « Test123 » par le mot de passe que vous souhaitez.
- ws.Protect Password :=password : Définit la propriété Protect de la feuille de calcul avec un mot de passe prédéfini, afin que la feuille de calcul soit protégée.
Comment utiliser les macros pour déprotéger toutes les feuilles de calcul à la fois
La déprotection d’une feuille de calcul Excel est indispensable lorsque vous souhaitez modifier ou mettre à jour des données précédemment verrouillées. Si de nombreuses feuilles de calcul sont protégées par un mot de passe, leur ouverture une par une peut prendre beaucoup de temps.
À l’aide des macros VBA, vous pouvez rapidement déprotéger toutes les feuilles de calcul d’un classeur, ce qui facilite l’accès et la modification des données.
Voici un exemple de code VBA que vous pouvez utiliser pour annuler la protection de toutes les feuilles de calcul d’un classeur :
Sub UnprotectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Unprotect Password:=password
Next ws
End Sub
Explication du code :
- password =“Test123” : Définit la valeur par défaut du mot de passe. Vous devez remplacer « Test123 » par le mot de passe approprié.
- ws.Unprotect Password :=password : Utilise le mot de passe spécifié pour ouvrir la protection de la feuille de calcul.