Bonjour,
je souhaite verouille des cellules et creer une macro pour pouvoir efface les données des cellules deverouilles.
Est ce que c'est possible ?
J'attends vos reponse avec impatiente
Option Explicit
Sub Protéger()
Cells.Locked = False
Range("a1:d7").Locked = True ' à adapter
ActiveSheet.Protect "toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Effacer()
On Error Resume Next
Cells = ""
End Sub
Ok merci la ça efface les cellules verrouillés si j'ai bien compris.
Comme j'ai plusieurs plage de cellules à verrouillés je voulais passer directement par la feuille et non par une macro.
Sauf si j'ai rien compris
De plus si j'ai plusieurs place de cellules je dois repeter la ligne range de votre macro