verrouiller deverrouiller cellule excel VBA

Bonjour,
Voilà mes deux macros une pour verrouiller une plage de cellule
L’autre pour déverrouiller. Le problème est que quand j’exécute la macro déverrouiller elle me déverrouille toute la feuille j’aimerais qu’elle me déverrouille que la plage sélectionné.
Et quand je veux exécuter la macro verrouiller de nouveau, il faut que je recoche la casse verrouillé dans format cellule, protection pour que ça marche.
Si je pouvais avoir un coup de main merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Verouillage() Sheets("Feuil1").Select ActiveSheet.Unprotect Range("B1:F1,B2:F2").Select Range("B7").Activate Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True Range("A1").Select   End Sub   Sub Deverouillage() Sheets("Feuil1").Visible = True Sheets("Feuil1").Select ActiveSheet.Unprotect Range("B1:F1").Select Cells.Select Selection.Locked = False Selection.FormulaHidden = False 'Sheets("EnterData" ).Visible = False End Sub

---

Bonjour,

Concernant le problème sur la macro de déverrouillage, tu as oublié de protéger à nouveau la feuille après avoir déverrouillé les cellules à déverrouiller.

Code:

---

1 2 3

Cells.Select Selection.Locked = False ActiveSheet.Protect

---

Pour le problème de verrouillage, réessaye avec cette modification.

j'ai essayé tjrs le même problème, quand je déverrouille tout la feuille ce déverrouille. y'a juste le format des cellules qui reste protégé

Et en virant la ligne

Code:

---

Cells.Select

---

c'est bon ca marche merci bcp