Verrouillage de plusieurs onglets

[gulminge]

Bonjour,

j'ai un fichier contenant plusieurs onglets que j'aimerais rapidement verrouiller.

Actuellement je dois passer feuille après feuille et sélectionner révision protéger la feuille.

Y a t'il un moyen de le faire plus rapidement ?

Merci d'avance

Julien

 

[don_pets]

Re : Verrouillage de plusieurs onglets

Yep,

Voici ce que j'utilise :

'Bloquer le classeur
Dim feuil
For Each feuil In Application.Sheets
feuil.Protect Password:="MDP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Next feuil

'Bébloquer
Dim feuil
For Each feuil In Application.Sheets
feuil.Unprotect Password:="MDP"
Next feuil

 

[gulminge]

Re : Verrouillage de plusieurs onglets

Merci bien pour la réponse.
Si j'ai bien compris il faut que je fasse une macro avec ce texte et ainsi quand je lance la macro ça fait le job ?

 

[don_pets]

Re : Verrouillage de plusieurs onglets

Yep,

disons que c'est une solution, tu crées 2 boutons sur lesquels tu affectes chacune de ces actions, et hop le tour est joué (ça fait l'job en fait !)