Protection ou deprotection simultanée de tout le classeur

Bonsoir,

Le userinterfaceonly est facultatif , il sert à pouvoir agir par macro
sans avoir à déprotèger
donc alt+f11 Insertion module tu mets le code ci après dedans et ferme
le vbe.Plus qu'à executer depuis Outils Macros




Sub ProtectAllSh()
dim sh as worksheet
for each sh in activeworkbook.sheets
sh.protect password:="toto", userinterfaceonly:=true
next
end sub

Sub UnProtectAllSh()
dim sh as worksheet
for each sh in activeworkbook.sheets
sh.unprotect password:="toto"
next
end sub


'Cdlt

'LSteph

Bonsoir,
Je cherche la commande pour protéger ou déprotéger d’un seul coup toutes les
feuilles d’un classeur Excel.
Pascal