Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro incluant mot de passe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kinel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kinel

XLDnaute Occasionnel
bonjour à tous

afin de rendre une feuille visible par mot de passe j'utilise les deux macros suivantes

Sub déprot()
'
ActiveWorkbook.Unprotect
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
End Sub

Sub prot()
'
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect (["ml"])
Sheets("Feuil1").Select

End Sub

c'est la première qui me pose problème à cause du mot de passe
existe t il un code qui permettrait de proposer d'entrer le mot de passe lorsqu'on active cette macro ?

merci de votre aide

kinel
 
Trier par date Trier par votes
Re : macro incluant mot de passe

Bonsoir kinel,

Je te propose simplement d'essayer ceci :
Code: 
Sub déprot()
'
    Dim mdp
    mdp = InputBox("Mot de passe : ")
    ActiveWorkbook.Unprotect (mdp)
    Sheets("Feuil3").Visible = True
    Sheets("Feuil3").Select
End Sub

A+
 
Vote positif 0 Vote négatif
Re : macro incluant mot de passe

bonsoir fred0o

merci pour cette réponse, ça fonctionne bien avec le bon mot de passe mais quand on rentre un faux mdp il propose un accès au code vba et ça, ça m"arrange pas trop
tu n'aurais pas un petit code qui annule simplement la macro en cas de mauvais code ?

merci d'avance

Kinel
 
Vote positif 0 Vote négatif
Re : macro incluant mot de passe

Utilise l'appellation on error exit sub.

Code: 
Sub déprot()
 '
     Dim mdp
     On Error GoTo ErrorHandler
     mdp = InputBox("Mot de passe : ")
     ActiveWorkbook.Unprotect (mdp)
     Sheets("Feuil3").Visible = True
     Sheets("Feuil3").Select
     ErrorHandler:
     msgbox("Le mot de passe entré est erronné")
     exit sub
 End Sub

De plus, protège ton code VBA par un mot de passe. Dans VBA clique sur outils, propriétés VBA puis sur l'onglet protection (je traduis car mon excel est en anglais). Voilà amuse toi 😉
 
Vote positif 0 Vote négatif
Re : macro incluant mot de passe

génial merci à vous deux
j'ai juste ajouté un Exit Sub avant le ErrorHandler: pour ne pas afficher la fenêtre d'erreur de mdp quand celui ci est bon
je penserai aussi à protéger le code VBA

voilà une journée qui commence bien !

merci encore

Kinel
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
508
job75
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
510
sylvanu
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
216
Atiom
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
609
Daniel200666
D
P
  • Question Question
XL 2016 Macro pour masquer/démasquer des cellules via mot de passe
Réponses
6
Affichages
348
Jacky67
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
962
Phil69970
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
888
Compte Supprimé 979
C
N
  • Résolu(e)
Microsoft 365 Mot de passe pour activation macro
Réponses
4
Affichages
509
Nathan027
N
P
  • Résolu(e)
XL 2010 Réduire la macro
Réponses
2
Affichages
626
Panda79360
P
P
  • Question Question
Microsoft 365 Macro qui plante exel
Réponses
1
Affichages
556
mapomme
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
672
marie3107
M
M
  • Question Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
1 K
MCO2406
M
T
  • Question Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
847
ThierryP
T
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
702
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
J
  • Résolu(e)
XL 2010 Avoir 2 mots de passe pour une même macro?
Réponses
2
Affichages
488
jigour
J
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
678
Oneida
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
633
AtTheOne
P
  • Question Question
XL 2016 Affecter à un bouton plusieurs possibilité
Réponses
3
Affichages
621
Eric KERGRESSE
E
T
  • Question Question
XL 2019 masquer mot de passe à l'écriture
Réponses
5
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…