Protection
bonjours,
ma question est la suivante:
j'ai un fichier excel qui contient 200 feuilles, je souhaite protéger toutes les feuilles de mon classeur mais pas une par une vu qu'il contient 200 feuilles.
merci
ma question est la suivante:
j'ai un fichier excel qui contient 200 feuilles, je souhaite protéger toutes les feuilles de mon classeur mais pas une par une vu qu'il contient 200 feuilles.
merci
3 réponses
-
Bonjour,
Deux macros :
Pour protégerSub Protéger()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Sheets
Ws.Protect Password:="Toto"
Next Ws
End Sub
Pour déprotégerSub Déprotéger()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Sheets
Ws.Unprotect Password:="Toto"
Next Ws
End Sub
A+ -
Bonjour,
En fin de procédure de Gyrus que je salue, juste avant End Sub ajouter
Application.ScreenUpdating = true
-
Bonjour,
Autre solution classique, quand tu fais enregistrer sous => outils, options générales => tu met un mot de passe pour la modification.
Cdlt
