Bonjour à tous,
Je cherche à protéger les cellules non vides de toutes les feuilles d'un classeur.
J'ai suivi un fils sur ce sujet mais j'ai peur que ça me fasse buguer mon fichier qui contient 84 feuilles différentes.
Avez vous une idée d'une macro permettant uniquement de proteger les cellules remplies depuis le dernier enregistrement (ou quelque chose du style).
Merci par avance,
Ci dessous le fils suivi :
Je cherche à protéger les cellules non vides de toutes les feuilles d'un classeur.
J'ai suivi un fils sur ce sujet mais j'ai peur que ça me fasse buguer mon fichier qui contient 84 feuilles différentes.
Avez vous une idée d'une macro permettant uniquement de proteger les cellules remplies depuis le dernier enregistrement (ou quelque chose du style).
Merci par avance,
Ci dessous le fils suivi :
Bonjour
Bon pour plage "A1:A100"
1er sélect toute tes cell et clic droit ...format ...sous l'onglet protection déverouille tout
2eme Mettre ce code dans le workbook ALT+F11
Voir image ici
Code:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) For Each c In Sheets("Feuil1").Range("A1:A100") If c <> "" Then ActiveSheet.Unprotect Password:="" c.Locked = True ActiveSheet.Protect Password:="" End If Next c End Sub
A+
Temjeh