cellulles deverouilles efface donnée

nico131

XLDnaute Junior
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 ;););););););)

cdlt
 

DoubleZero

XLDnaute Barbatruc
Bonjour, nico131, le Forum,

Comme ceci ?
VB:
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
A bientôt :)
 

nico131

XLDnaute Junior
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

Cdlt
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 730
Membres
105 802
dernier inscrit
Witchun