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