XL 2013 Marcro pour proteger les lignes precedentes

[lestoiles1]

Bonjour, j'aimerais que lorsqu'on clique sur le bouton "VALIDATE", la ligne qui contient la dernière donnée se protege automatique pour qu'on ne puisse plus le modifier et ainsi de suite.

Merci

Lestoiles1

 

[ThierryP]

Bonjour Lestoiles1,

Ceci devrait le faire :

Option Explicit

Sub Button1_Click()
Dim DerLig As Integer

'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

 

[lestoiles1]

Bonjour Lestoiles1,

Ceci devrait le faire :

Option Explicit

Sub Button1_Click()
Dim DerLig As Integer

'Il faut d'abord déprotéger toutes les cellules de la feuille par le menu Accueil--> Format--> Format de cellule
ActiveSheet.Unprotect
DerLig = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Row
Range("A1:T" & DerLig).Locked = True
ActiveSheet.Protect
End Sub

Bonjour, vous avez proteger toutes les cellules, pourtant je veux juste que la ligne qui contient des données soit proteger en cliquant sur le bouton, et ainsi de suite. exemple: lorsque la cellule A6 contient une chiffre et apres lorsque je clique sur le bouton c'est la ligne 6 qui est portegée pas la lignle 7. et lorsque je met un nombre dans la ligne 7 et lorsque je clik sur le bouton, c'est la ligne 7 tout entière qui est protégée avec les ligné surpérieur (1.2.3.4.5.6). Mon objectif c'est qu'on ne puisse plus modifier quelque chose sur la ligne lorsqu'on clik sur le bouton. sauf la ligne inferieur

 

[ThierryP]

Oui, c'est bien ce que la macro fait.... A condition d'avoir déverrouillé toutes les cellules au préalable comme indiqué

 

[lestoiles1]

Oui, c'est bien ce que la macro fait.... A condition d'avoir déverrouillé toutes les cellules au préalable comme indiqué

Oui, ça marche maintenant, et si je veux avoir un mot de passe "123456" , comment je fais svp

 

[lestoiles1]

Et en plus le tableau ne se rallonge pas si la feuille est protégée, pouver vous trouver une solution svp

 

[ThierryP]

Oui, ça marche maintenant, et si je veux avoir un mot de passe "123456" , comment je fais svp

Il faut modifier les lignes comme ceci :

Activesheet.unprotect "123456"
...
...
Activesheet.protect "123456"

 

[lestoiles1]

Il faut modifier les lignes comme ceci :

Activesheet.unprotect "123456"
...
...
Activesheet.protect "123456"

Merci beaucoup

 

[lestoiles1]

Il faut modifier les lignes comme ceci :

Activesheet.unprotect "123456"
...
...
Activesheet.protect "123456"

Dernière chose, lorsque la feuille est verouillée, le tableau ne s'allonge plus, est-ce qu'il y a une solution pour cela?

 

[ThierryP]

Bonjour,
La protection de feuille "gèle" le fonctionnement normal d'un tableau... Une autre piste pourrait être de masquer la ligne avec le bouton :

ActiveCell.EntireRow.Hidden = True