Bonjour le forum,
J'ai un tableau a renseigner ligne par ligne de la colonne A à M avec un controle sur la colonne D et la colonne L qui doivent absolument etre saisis : si c'est le cas, la macro fait un tri sur la colonne D puis enregistre le classeur et INSCRIT en colonne N "Enregistré".
Je voudrais qu'une fois la ligne validée (colonne N avec Enregistré) protéger les lignes où la colonne N est égale à Enregistré PAR MOT DE PASSE.
Mon probleme : j'ai fait la condition If suivante mais malgre la présence de "enregistré en colonne N, le programme ne prend pas en compte cette instruction, je peux continuer à supprimer la ligne ou les cellules sans aucune restriction.
Débutant en VBA, je ne comprends pas!
If colN<>0 then
VMdP = InputBox("La date de la demande est déjà enregistrée !" & vbCrLf & vbCrLf _
' & "Pour modifier les données existantes, merci de saisir le mot de passe : ", _
' "MODIFICATION IMPOSSIBLE ...")
'If VMdP = "TOTO" Then
' Application.EnableEvents = False
' Application.Undo
' Else
' Application.EnableEvents = True
'End If
'End If
Merci de votre aide, je galère un max
Amicalement
dss
J'ai un tableau a renseigner ligne par ligne de la colonne A à M avec un controle sur la colonne D et la colonne L qui doivent absolument etre saisis : si c'est le cas, la macro fait un tri sur la colonne D puis enregistre le classeur et INSCRIT en colonne N "Enregistré".
Je voudrais qu'une fois la ligne validée (colonne N avec Enregistré) protéger les lignes où la colonne N est égale à Enregistré PAR MOT DE PASSE.
Mon probleme : j'ai fait la condition If suivante mais malgre la présence de "enregistré en colonne N, le programme ne prend pas en compte cette instruction, je peux continuer à supprimer la ligne ou les cellules sans aucune restriction.
Débutant en VBA, je ne comprends pas!
If colN<>0 then
VMdP = InputBox("La date de la demande est déjà enregistrée !" & vbCrLf & vbCrLf _
' & "Pour modifier les données existantes, merci de saisir le mot de passe : ", _
' "MODIFICATION IMPOSSIBLE ...")
'If VMdP = "TOTO" Then
' Application.EnableEvents = False
' Application.Undo
' Else
' Application.EnableEvents = True
'End If
'End If
Merci de votre aide, je galère un max
Amicalement
dss