Protéger en un clic!

Re : Protéger en un clic!

Bonjour,

je sais pas si tu vas trouver une macro toute prête qui fera tout çà.
Il faut :
- parcourir toutes les feuilles
- détecter les cellules avec formules et les mettre en "Vérouillées" et déverrouiller les autres
- activer la protection sur les feuilles

Propose nous un début de développement et on se fera un plaisir de compléter si tu bloques.

A+

Re : Protéger en un clic!

ok,
avec l'enregistreur de macro:
(et adaptation pour la gestion de l'erreur....)
Sub ProtègerTouteslesFormules()

On Error Resume Next
For Each Sht In Application.Worksheets
Sht.Activate
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect ("zaza") 'DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

ça a l'air de marcher...Votre avis?