Protéger une cellule

Bonsoir le forum
Bonsoir joemis

A placer dans un module
Sub protect ()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1,A2,A3").Select => à adapter à ta ou tes cellules
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123" ' Ces 2 lignes sont sur une seule
End Sub


Puis dans ThisWorkbook, tu places ceci pour l'appel à l'ouverture

Private Sub Workbook_Open()
protect
End Sub

J'espère que cela fonctionne sous 97
@ + Eric C