Une macro pour protéger la feuille après avoir verrouillé les cellules visées :
Code:
Sub MacroExemple()
With ActiveSheet
.Cells.Locked = True
.Cells.FormulaHidden = True
With .Range("B4:C4,E6:G9")
.Locked = False
.FormulaHidden = False
End With
.Protect "0000", userinterfaceonly:=True
End With
End Sub
Bien entendu, le mot de passe "0000" peut être remplacé par n'importe quelle chaîne de caractères.
Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").
Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").