Protection feuille par mot de passe

Bonjour à tous,

Je viens vers vous, car j'ai besoin que l'on m'éclaire sur mon problème de verrouillage.

Vous trouverez ci-dessous une macro, qui est censée déverrouiller la feuille, créer mon numéro +1, et remettre la protection de la feuille.

Mais la protection ne se remet jamais !

Merci d'avance de vos réponses !

Sub NouveauNuméroRC02()

'Enlever protection de la feuille
 ActiveSheet.Unprotect ("MDP")

'Créer numéro + 1
    On Error GoTo NuméroUn
    N = Right(Range("J2").Value, 3)
    Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(N + 1, "000")
    Exit Sub

NuméroUn:
    Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(1, "000")
    Resume Next

'Remettre protection de la feuille
ActiveSheet.Protect ("MDP")

End Sub

Bonjour,

et pour cause, tu as mis

Exit Sub

donc il ne passe par la protection que s'il y a une erreur !

Mets la protection avant exit sub aussi.

Bonjour,

Il faut remettre aussi la protection avant ton EXIT SUB

Sub NouveauNuméroRC02()

'Enlever protection de la feuille
 ActiveSheet.Unprotect ("MDP")

'Créer numéro + 1
    On Error GoTo NuméroUn
    N = Right(Range("J2").Value, 3)
    Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(N + 1, "000")
    ActiveSheet.Protect ("MDP")
    Exit Sub

NuméroUn:
    Range("J2").Value = "NC" & Format(Date, "yyyymmdd") & "-" & Format(1, "000")
    Resume Next

'Remettre protection de la feuille
ActiveSheet.Protect ("MDP")

End Sub

Maintenant que j'ai la réponse, ça parait logique!

Merci à vous !

Rechercher des sujets similaires à "protection feuille mot passe"