verouillage cellule sous condition avec macros Fermé

Question

Bonjour, 

Suite à de l'aide (précieuse) sur ce forum j'ai un fichier de ce type : 

http://cjoint.com/?3Bum4dmRv0U

Si en plus de mon fichier je souhaite avoir une condition.
Du type : "si la case B23 est remplie alors rendre innaccessible la case B24", comment faire ??

Merci !!

Mike-31 · Answer

Bonjour,

Cette condition concerne B23 ou toutes les lignes de la colonne B

Mike-31 · Answer

Re,

essaye comme cela, code à coller dans les propriétés de ta feuille, mais au départ les cellules doivent être déverrouillées et la feuille protégée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B23]) Is Nothing Then
    ActiveSheet.Unprotect
    If Target <> "" Then Target.Offset(1, 0).Locked = True
    ActiveSheet.Protect
End If
End Sub

lazaz · Answer

Merci Mike. 
J'ai essayé mais cela ne semble pas fonctionner. 
J'ai ajouté ce que tu m'as dis en fin de page. Je pense que j'oublie qqch mais je ne suis pas au top des macros !
ca me donne ca : 
----
Sub OptionA()
   With ActiveSheet
      .Unprotect Password:="essaiFAA"
      .Cells.Locked = True
      .Range("B27:B53").Locked = False
      .Protect Password:="essaiFAA"
   End With
End Sub

Sub OptionB()
   With ActiveSheet
      .Unprotect Password:="essaiFAA"
      .Cells.Locked = True
      .Range("D27:D53").Locked = False
      .Protect Password:="essaiFAA"
   End With
End Sub

Sub OptionC()
   With ActiveSheet
      .Unprotect Password:="essaiFAA"
      .Cells.Locked = True
      .Range("F27:F53").Locked = False
      .Protect Password:="essaiFAA"
   End With
End Sub

Sub test()
Nlig = Range("A" & Rows.Count).End(xlUp).Row - 3
   With ActiveSheet
      .Unprotect Password:="essaiFAA"
      .Cells.Locked = True
      .Range("B27:B" & Nlig).Locked = False
      .Protect Password:="essaiFAA"
   End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E52]) Is Nothing Then
ActiveSheet.Unprotect
If Target <> "" Then Target.Offset(1, 0).Locked = True
ActiveSheet.Protect
End If
End Sub
---

Mais je ne comprends pas bien ce que tu as programmé. En gros si l'utilisateur écrit en E52 il ne peut plus écrire en E53. et s'il écrit en E53 alors il ne peut pas écrire en E52.
De meme pour C52 et C53 et pour G52 et G 53.

Mike-31 · Answer

Re,

normal, regarde ton code,  la protection comme la déprotection est avec mot de passe

Unprotect Password:="essaiFAA" 

mon code est sans 
 ActiveSheet.Unprotect 

ensuite tes codes sont certainement dans un module alors que mon code doit se trouver dans les propriétés de ta feuille

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

lazaz · Answer

Pour le mot de passe, j'aurais pu y penser ^^
J'ai mis ton code dans la propriété de la feuille (enfin je crois..); mais cela ne semble pas fonctionner non plus. 
En fait j'ai l'impression que cela bloque la cellule D52 mais sans lien avec le fait que j'ai rempli ou non la 53.

http://cjoint.com/?EBzlmXaqdQE  : ca va peut-être t'aider...

Mike-31 · Answer

RE,

encore normal, tu ne peux utiliser qu'une fois la syntaxe  Worksheet_Change 
 

il faut donc empiler les actions sous la seule syntaxe Worksheet_Change

explique exactement ce que tu veux faire, si D52 est renseignée on verrouille D53
idem si tu renseignes  F52 et F53

as tu d'autres cellules concernées que D52, D53, F52 et F53

Mike-31 · Answer

Re,

Remplace tes codes par

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D52:F52")) Is Nothing Then
ActiveSheet.Unprotect Password:="essaiFAA"
If Target <> "" Then Target.Offset(1, 0).Locked = True
ActiveSheet.Protect Password:="essaiFAA"
End If
If Not Intersect(Target, Range("D53:F53")) Is Nothing Then
ActiveSheet.Unprotect Password:="essaiFAA"
If Target <> "" Then Target.Offset(-1, 0).Locked = True
ActiveSheet.Protect Password:="essaiFAA"
End If
End Sub

Mike-31 · Answer

Re,
Je pense à une chose, si tu saisis une valeur en D52, D53 se verrouille mais pas D52, c'est ce que tu veux ou on verrouille les deux cellules.

de plus ajoute au code que je t'ai donné une gestion d'erreur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("D52:F52")) Is Nothing Then
ActiveSheet.Unprotect Password:="essaiFAA"
If Target <> "" Then Target.Offset(1, 0).Locked = True
ActiveSheet.Protect Password:="essaiFAA"
End If
If Not Intersect(Target, Range("D53:F53")) Is Nothing Then
ActiveSheet.Unprotect Password:="essaiFAA"
If Target <> "" Then Target.Offset(-1, 0).Locked = True
ActiveSheet.Protect Password:="essaiFAA"
End If
End Sub

pour accéder sur les cellules D52, D53, F52 ou F53 après qu'elles se soient verrouillées, tu peux ajouter un mot de passe sur ces cellules

onglet Révision/module Modification/Permettre la modification des plages/Nouvelle/clic dans la zone Fait référence aux cellules, sélectionne les cellules D52:D53 et F52:F53
saisir le mot de passe qui permettra la modification et OK

ce qui te permettra de revenir sur ces cellules qui viennent de se verrouiller

Mike-31 · Answer

Re,

justement, si tu t'ai trompé entre D52 et D53, il est évident que suivant la cellule renseignée, l'autre s'est verrouillée. Le plus simple est de faire ce que je t'ai dit

onglet Révision/module Modification/Permettre la modification des plages/Nouvelle/clic dans la zone Fait référence aux cellules, sélectionne les cellules D52:D53 et F52:F53
saisir le mot de passe qui permettra la modification et OK 

 Plus compliqué mais il y aura de toute façon un mot de passe pour déverrouiller ces cellules,  sinon a quoi servirait le code précédent

Maurice · Answer

Bonjour
tu peux faire ce que tu veux mais les macro dans ton module reactive la colonne
et la je ne voie pas
A+
Maurice

Mike-31 · Answer

Re,

mais il n'est pas question de déprotéger ton fichier ni de donner le mot de passe de protection de ta feuille  "essaiFAA"

tu donnes uniquement la possibilité d'intervenir sur ces 4 cellules avec un mot de passe différent de celui de la protection feuille, Excel ne peut pas deviner  que tu t'es trompé

Mike-31 · Answer

Re,

Oui teste avec un mot basique
et tiens moi au courant

Mike-31 · Answer

Re,

Pas mal comme procédé, mais avec ce procédé tes cellules ne sont pas inaccessibles, il suffit de cocher une case d'option pour intervenir dans tes cellules autant de fois que tu le souhaites et n'importe qui peut intervenir

Verouillage cellule sous condition avec macros

13 réponses

Discussions similaires