Problème avec mot de passe

Bonjour voici mon problème sous Excel j'ai un mot de passe sur une feuille pour déprotéger et rentre visible des données cacher pour ajout de donnée, mais marche une fois après erreur d'exécution '1004' je ne peut faire que Fin ou Débogage merci pour votre

aide

mot de passe: c502018

colonne visible : A1 : A37

Sub visible()

Dim Title
Title = " Veuillez saisir votre mot de passe"
reponse = InputBox("Mot de passe", Title, "Saisisez votre mot de passe, merçi..................")
If reponse <> "c502018" Then
MsgBox ("Vous n'êtes pas autorisé à utiliser cette fonction")
Else
'Execution de la procédure

End If

Sheets("Base Couteaux de rasage").Select

Range("A1:A37").Select

Selection.EntireRow.Hidden = False

    Range("A1").Select

End Sub
7essai-001.xlsm (192.24 Ko)

bonjour

c'est bien de demandé le mot de passe mais encore faut-il déverrouiller la feuille pour faire ce que tu as a faire

et pas oublier de re protéger a la fin

fred

Sub visible()

Dim Title
Title = " Veuillez saisir votre mot de passe"
reponse = InputBox("Mot de passe", Title, "Saisisez votre mot de passe, merçi..................")
If reponse <> "c502018" Then
MsgBox ("Vous n'êtes pas autorisé à utiliser cette fonction")
Else
'Execution de la procédure
ActiveSheet.Unprotect reponse

End If

Sheets("Base Couteaux de rasage").Select

Range("A1:A37").Select

Selection.EntireRow.Hidden = False

    Range("A1").Select
ActiveSheet.Protect reponse

End Sub

Merci pour ta réponse fred2406 marche ok, mais si je tape un mauvais mot de passe j'ai aussi erreur d'exécution '1004' Impossible de définir la propriété de la classe Range ? je ne peut faire que Fin ou Débogage et la si je choisi Débogage je voie le mot de passe c'et pas top comment arrêté la macro au mot de passe si mot de passe différend merci

En mettant un exit sub si la réponse n'est pas la bonne

et éventuellement mettre un mot de passe sur le VBA project outils/proprietés du VBA Project/ onglet protection

mais je préfère préciser que pour un utilisateur confirmer, les mots de passe de servent pas a grand chose...

fred

Sub visible()

Dim Title
Title = " Veuillez saisir votre mot de passe"
reponse = InputBox("Mot de passe", Title, "Saisisez votre mot de passe, merçi..................")
If reponse <> "c502018" Then
MsgBox ("Vous n'êtes pas autorisé à utiliser cette fonction")
exit sub

End If

'Execution de la procédure
ActiveSheet.Unprotect reponse
Sheets("Base Couteaux de rasage").Range("A1:A37").EntireRow.Hidden = False
Range("A1").Select
ActiveSheet.Protect reponse

End Sub

Merci a toi fred2406 marche nickel

Rechercher des sujets similaires à "probleme mot passe"