Déprotection de cellules en fonction d'une variable

Bonjour,

j'aurais besoin de protéger toute une feuille, sauf 1 cellule dans laquelle je rentrerais un nombre. Cette variable doit alors me servir à déprotéger autant de ligne qu'indiqué par ce nombre.

Est ce que quelqu'un sait comment faire ?

Merci.

Salut le forum

comme nouveau membre Attilaz

Dans ThisWorkbook

Private Sub Workbook_Open()
Sheets("Feuil1").Protect Password:="abc", UserInterfaceOnly:=True
End Sub

Dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
  Cells.Locked = True
  [B2].Locked = False
  If [B2] > 0 Then Rows("4:" & 3 + Int([B2])).Locked = False
End If
End Sub

On débloque depuis la ligne 4 si un nombre plus grand que 0 en "B2"

Mytå

C'est exactement ce qu'il me fallait

Merci Mytå.