Problème avec mot de passe Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
P
Paldor
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 18 septembre 2013
Version d'Excel : 2010

Message par Paldor » 18 juin 2015, 09:52

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
essai 001.xlsm
(192.24 Kio) Téléchargé 7 fois
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'087
Appréciations reçues : 39
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 18 juin 2015, 10:00

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
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
P
Paldor
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 18 septembre 2013
Version d'Excel : 2010

Message par Paldor » 18 juin 2015, 10:10

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
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'087
Appréciations reçues : 39
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 18 juin 2015, 10:49

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
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
P
Paldor
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 18 septembre 2013
Version d'Excel : 2010

Message par Paldor » 18 juin 2015, 11:38

Merci a toi fred2406 marche nickel
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message