verrouillage cellule apres saisie

[kalschnikof]

Bonjour, a tous , toutes

je suis nouveau sur le forum.

je souhaiterais verrouiller certaine cellules apres saisie (en "feuil1"), j'ai une macro que recup sur le net, mais elle fonctionne sur toute la "feuil1".

tout est expliquer en "Feuil2"

voir fichier ci-joint

Cdlt....

 

[Dull]

Re : verrouillage cellule apres saisie

Salut kalschnikof et Bienvenue, le Forum

Essaye ceci si j'ai bien saisie

Private Sub Worksheet_Change(ByVal Target As Range)
' NB : La protection est associée à un mot de passe : "mp"
If Not Intersect(Target, Range("A7:I20")) Is Nothing Then 'Valable seulement pour la Plage A7:I20
'Suppression de la protection de la feuille
ActiveSheet.Unprotect Password:="mp"

'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True

'Remise en place de la protection de la feuille
ActiveSheet.Protect Password:="mp"
End If ' Fin de la Condition

End Sub

Bonne Journée

 

[kalschnikof]

Re : verrouillage cellule apres saisie

merci "Dull", sa marche nickel..!!!! 😎

Cdlt....

 

[kalschnikof]

Re : verrouillage cellule apres saisie

Salut kalschnikof et Bienvenue, le Forum

Essaye ceci si j'ai bien saisie

Private Sub Worksheet_Change(ByVal Target As Range)
' NB : La protection est associée à un mot de passe : "mp"
If Not Intersect(Target, Range("A7:I20")) Is Nothing Then 'Valable seulement pour la Plage A7:I20
'Suppression de la protection de la feuille
ActiveSheet.Unprotect Password:="mp"

'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True

'Remise en place de la protection de la feuille
ActiveSheet.Protect Password:="mp"
End If ' Fin de la Condition

End Sub

Bonne Journée

par contre, j'ai remarquer que sa ne fonctionne pas avec des cellules fusionner...???

Cdlt...

 

[pierre_antoine]

Re : verrouillage cellule apres saisie

Bonjour,

je me permet de relancer ce post car il m'interresse beaucoup.

En effet dans le cadre de mon travail je dois creer un modèle excel. Ce modèle se compose de 12 onglets (1 par mois) et chaque onglet a le même tableau.

J'ai fait mon tableau, inséré la macro fournie plus haut mais... rien ca ne marche pas. Je ne suis pas un pro du VBA et je pense que je l'enregistre mal et que le fait qu'il y ait 12 onglets implique une modification du code.

Je sais pas si je dois le mettre dans un modul, dans Thisworkbook, choisir General ou Worksheet enfin bref je patine!

Si quelqu'un veut bien m'aider sur ces différents points ca serait super!
A noter je bosse sous Excel2010 mais le fichier tournera aussi sous Excel 2003

Merci par avance

 

[JCGL]

Re : verrouillage cellule apres saisie

Bonjour à tous,

Place ce bout de code l'ami Didier dans le module ThisWorkBook :

Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' NB : La protection est associée à un mot de passe : "mp"
If Not Intersect(Target, Range("A7:I20")) Is Nothing Then 'Valable seulement pour la Plage A7:I20
'Suppression de la protection de la feuille
ActiveSheet.Unprotect "mp"
'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True
'Remise en place de la protection de la feuille
ActiveSheet.Protect "mp"
End If ' Fin de la Condition
End Sub

Il est nécessaire de déverrouiller toutes les cellules de toutes les feuilles avant de poser le code

 

[pierre_antoine]

Re : verrouillage cellule apres saisie

Merci beaucoup de ton aide, ca marche parfaitement!

Efficace et rapide! Mercisssssss