Protéger une cellule

[joemis]

Bonjour à tous,
Sous Excel 97:
Comment empêcher par une macro la modif d'une cellule en dehors de la protection par "Outils" "Protection" (la modif ne serait rendue possible pour des raisons de maintenance de la feuille que par la rentrée d'un mot de passe)
Merci d'avance !

 

[Eric C]

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