Bonjour le forum,
J'essaie d'empêcher la modification d'une ligne saisie (colonne A à N) pour tout utilisateur qui ne dispose pas du mot de passe à l'aide de l'instruction suivante :
(Précision : la cellule de la colonne N sur la ligne concernée est égale à "Enregistré" avant le déroulement de l'instruction qui suit :
Lig =Target.row
If Range("N" & Lig).Value <> "" 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 ...")
'Vérifie le mot de passe ici
If VMdP <> "TOTO" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
End If
J'ai aussi essayé a la place de
Lig =Target.row
If Range("N" & Lig).Value <> "" Then
VcolN =val(range("N" & target.row).value
If VcolF<>0
Etc...
Je vous remercie de venir à mon aide car j'ai essayé solution sur solution je ne m'en sors pas pour protéger la ligne de saisie par mot de passe.
D'avance grand merci,
Amicalement
dss
J'essaie d'empêcher la modification d'une ligne saisie (colonne A à N) pour tout utilisateur qui ne dispose pas du mot de passe à l'aide de l'instruction suivante :
(Précision : la cellule de la colonne N sur la ligne concernée est égale à "Enregistré" avant le déroulement de l'instruction qui suit :
Lig =Target.row
If Range("N" & Lig).Value <> "" 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 ...")
'Vérifie le mot de passe ici
If VMdP <> "TOTO" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
End If
J'ai aussi essayé a la place de
Lig =Target.row
If Range("N" & Lig).Value <> "" Then
VcolN =val(range("N" & target.row).value
If VcolF<>0
Etc...
Je vous remercie de venir à mon aide car j'ai essayé solution sur solution je ne m'en sors pas pour protéger la ligne de saisie par mot de passe.
D'avance grand merci,
Amicalement
dss