Macro pour verrouiller zone de saisie en fonction du contenu d'une cellule

[kaisermpt]

Bonjour à tous et au forum,

Je me permets de vous solliciter une nouvelle fois pour le problème suivant :

Dans un fichier, après avoir rempli plusieurs informations dans la feuille, je souhaiterais que quand l'utilisateur indique OUI dans une cellule définie, cela bloque automatiquement la saisie dans une zone définie dans la feuille.

D'autre part, il serait nécessaire que le déblocage puisse se faire uniquement avec l'aide d'un mot de passe.

Je vous joints un fichier pour illustrer mes propos.

En vous remerciant d'avance pour votre aide,

Sébastien

 

[Robert]

Re : Macro pour verrouiller zone de saisie en fonction du contenu d'une cellule

Bonsoir Sébastien, bonsoir le forum,

En pièce jointe ton fichier avec la macro événementielle Change ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$20" Then Exit Sub 'si le changement a lieu ailleurs qu'en D20, sort de la procédure
If Target.Value = "oui" Then 'condition : si D20 = "oui"
    Cells.Locked = False 'déverrouille toutes les cellules
    Range("B3:I23").Locked = True 'verrouille la plage B3:I23
    ActiveSheet.Protect Password:="toto" 'protège l'onglet avec le mot de passe "toto" (tu adapteras...)
End If 'fin de la condition
End Sub

 

[nyko283]

Re : Macro pour verrouiller zone de saisie en fonction du contenu d'une cellule

Bonsoir kaisermpt, le forum

Alors essaie ceci, la protection sera ative pour toute la feuille concernée, dans le code qui suit, seul la région en bleu dans votre fichier, est vérrouillé.
la cellule du choix du dossier complet restera accessible, lorsque vous changer pour nom alors excel demande un mdp pour la déprotection.

pour ce qui est du choix du mot de passe je vous laisse le modifier directement dans la macro, pour le moment le mot de passe est "mon mdp".

si vous avez d'autres question...

Bon week end

 

[kjin]

Re : Macro pour verrouiller zone de saisie en fonction du contenu d'une cellule

Bonsoir le fil,
Au plus simple, sans protéger la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:I23")) Is Nothing And UCase(Range("D20")) = "OUI" Then
    If InputBox("mdp ?") <> "toto" Then
        Range("B24").Activate
    Else
        Range("D20") = ""
    End If
End If
End Sub

A+
kjin

 

[kaisermpt]

Re : Macro pour verrouiller zone de saisie en fonction du contenu d'une cellule

Bonsoir à tous,

Merci pour vos réponses. Ça correspond parfaitement à ce que je recherchais. Ça marche impec !..

Bon We

Sébastien