Re : Verrouillage de la ligne saisie par mot de passe
Bonsoir BrunoM45 et le forum,
Pour info, je copie le code restant de ma macro en l'integrant à ton programme entre :
' Saisie dans une colonne de A à M
VColD = Range("D" & Target.Row).Value
VColL = Range("L" & Target.Row).Value
If VColL <> 0 And VColD <> 0 Then
Setrep = MsgBox("Validez votre saisie :Attention,vous ne pourrez plus modifier la ligne après la validation ", vbYesNo)
End If
Tri des données sur 3 colonnes
If Setrep = 6 Then
Range("A4:M65000").Select
Selection.Sort key1:=Range("D5"), Order1:=xlAscending, Key2:=Range("A5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
'Enregistre le classeur
ActiveWorkbook.Save
End If
End If
Inscrit Enregistré en colonne N sur la ligne saisie
If ActiveWorkbook.Saved = True And Range("N" & Target.Row).Value = "" Then
Range("N" & Target.Row).Value = "Enregistré"
End If
'Inscrit la date et heure de saisie si n'existe pas déjà
If Range("N" & Target.Row).Value <> 0 Then
Lig = Target.Row
If Range("M" & Lig).Value = "" And Target.Value <> "" Then
Range("M" & Lig).Value = Now()
End If
et ' Vérifie si la ligne est déjà enregistrée
J'ai ensuite testé et la macro bloque apres avoir inscrit enregistré en colonne N au niveau de application.Undo dans IF not intersect......
Peut être à cause de If ActiveWorkbook.Saved = True And Range("N" & Target.Row).Value = "" Then
Range("N" & Target.Row).Value = "Enregistré"
Ca bloque aussi sur mais je n'en suis pas sur...car peu de pratique en VBA et aucune de programmation mais je m'accroche....
"MODIFICATION IMPOSSIBLE ...") <> "TOTO" Then
Application.EnableEvents = False
' Annule les modifications
Application.Undo
Application.EnableEvents = True
et là, je ne comprends pas !
Je suis débutant , j'essaie d'assimiler et de produire ou reproduire du code, mais cette section avec enable.events, j'ai pas vraiment assimilé car déjà ma macro s'arretait sur application.undo.
Si tu as quelques minutes à m 'accorder, merci de me l'expliquer.
Cordialement,
dss