Autres [RESOLU]Verrouiller une cellule apres saisie avec un mot de passe

[sergiofox]

Bonjour, je suis novice et je voudrais faire une feuille de match qui se verrouille après saisie, j'ai trouvé différentes formules que j'ai essayé d'appliquer, elles fonctionnent tant que je n'y ajoute pas un mot de passe pour verrouiller la feuille, pourriez-vous m'aider ?
Merci d'avance.

 

[job75]

Ne faites pas de complexe, ce maximum de 25 n'est pas bête du tout s'il s'agit de la somme des 2 cellules B2 et C2.

Du coup dans le fichier joint je simplifie la formule de validation en B2 :

=ET(B2>=0;NON(MOD(B2;1));MAX($B2:$C2)<=13;$B2+$C2<=25)

Bonne nuit.

 

[sergiofox]

Encore mille merci à vous monsieur Job75, pour votre aide et votre patience.

Bien à vous

 

[sergiofox]

Bonjour monsieur Job75, encore un petit complément d'infos...
Serait t'il possible dans la vba de n'avoir la confirmation " confirmez-vous ce que vous venez d'entrer" et le verrouillage des cellules (F3:G3)= match1 (F4:G4)match2 etc... que lorsque que l'on à rentré le second score de la rencontre ? càd en colonne G ?
Voilà le code que j'utilise pour ma commande dans mon dossier officiel

Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Application.Intersect(Target, Range("match1:match9")) Is Nothing Then Exit Sub
test = True
If MsgBox("Validez-vous cette entrée ?", vbYesNo, "Attention !") = vbYes Then
    ActiveSheet.Unprotect ("test")
    Target.Locked = True
    ActiveSheet.Protect Password:="test"
Else
    Target.Select
    Target.ClearContents
End If
test = False

 

[sergiofox]

Oups ? disparu ...

 

[job75]

Bonjour sergiofox, le forum,

Avec cette nouvelle demande c'est compliqué, ce que j'avais fait n'allait pas, ceci est maintenant correct :

Private Sub Worksheet_Change(ByVal Target As Range)
Protect "toto", UserInterfaceOnly:=True 'mot de passe à adapter
Set Target = Intersect(Target, [F:G])
If Target Is Nothing Then Exit Sub
Dim P As Range, Q As Range, flag As Boolean
For Each Target In Target 'si entrées/effacements multiples (copier-coller)
    Set P = Intersect(Target.EntireRow, [F:G])
    If Application.CountA(P) = 2 Then
        If Not flag Then
            If MsgBox("Confirmez-vous ce que vous venez d'entrer ?", 4) = vbNo Then
                Application.EnableEvents = False
                Application.Undo 'annule l'entrée
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
        Set Q = Union(IIf(Q Is Nothing, P, Q), P)
        flag = True
    End If
Next Target
If Not Q Is Nothing Then Q.Locked = True 'verrouillage
End Sub

Bonne journée.

 

[sergiofox]

Merci mille fois c'est exactement ce que je voulais, je l'ai réécris dans mon fichier et cela fonctionne comme je le souhaitais.

Merci,merci,merci.