Macro pour bloquer le contenu de la cellule mais pas le format

Bonjour,

Ca fait quelques semaines que je cherche l´info mais pour le moment impossible de la trouver.

J´ai créé une macro me permettant de bloquer les cellules une fois remplies. Avant de se bloquer, elle envoie un message pour que la personne s´assure de la donnée entrée avant de valider.

Cela fonctionne très bien. Mon problème est que je souhaiterai laisser la possibilité de modifier le format (couleur et/ou lignes) disponible pour les cellules non bloquées.

Voici ma macro:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B1:H10000")) Is Nothing Then

retval = MsgBox("Confirmas esa valor?", vbYesNo, "VALIDATION SAISIE")

If retval = vbYes Then

Target.Select

ActiveSheet.Unprotect "excel"

Selection.Locked = True

Else

Application.EnableEvents = False

Target = ""

End If

If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then

Range("A" & Target.Row) = Format(Now, "mm/dd/yyyy")

End If

End If

Application.EnableEvents = True

ActiveSheet.Protect "excel", DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

Merci

Leslie

Bonjour,

À tester :

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

laceline

Bonjour,

cela fonctionne merci.

Cdt

Leslie