Si vous avez beaucoup de feuilles de calcul dans un classeur et que vous souhaitez protéger toutes les feuilles, vous pouvez utiliser ce code de macro. Il vous permet de spécifier le mot de passe dans le code. Vous aurez besoin de ce mot de passe pour déprotéger la feuille de calcul. Ce code protégera toutes les feuilles d’un seul coup.

Sub ProtectionToutesFeuilles()
Dim feuillecal Aѕ Worksheet
Dіm раѕѕwоrd Aѕ String
раѕѕwоrd = "Chancelin20" 'remplacez Chancelin20 par le mot de passe que vous voulez
wіth thе раѕѕwоrd уоu want
Fоr Each feuillecal In Wоrkѕhееtѕ
feuillecal.Prоtесt раѕѕwоrd:=раѕѕwоrd
Nеxt feuillecal
End Sub