code pour protéger macro par mot de passe
Le
PLG
Bonjour
Bon tout est (presque dans le titre)
J'avais une macro qui protégeait une autre macro par mot de passe.
Je l'ai perdue.
La syntaxe, je ne m'en rappelle plus et comme en VBA je coule un peu !!!
Ce serait avec un Sub() et End Sub de préférence.
Merci d'avance
Bon tout est (presque dans le titre)
J'avais une macro qui protégeait une autre macro par mot de passe.
Je l'ai perdue.
La syntaxe, je ne m'en rappelle plus et comme en VBA je coule un peu !!!
Ce serait avec un Sub() et End Sub de préférence.
Merci d'avance
au besoin, tu peux spécifier une feuille particulière au
lieu d'utiliser ActiveSheet
'------------------------------
Sub Protection1()
Dim MotDePasse As String
MotDePasse = "toto"
Do
x = InputBox("Quel est le mot de passe ?")
If x = "" Then MsgBox "opération annulée": Exit Sub
If x <> MotDePasse Then
MsgBox "Mot de passe erronné. Recommencer"
End If
Loop Until x = MotDePasse
ActiveSheet.Unprotect MotDePasse
End Sub
'------------------------------
"PLG"
Bonjour
Bon tout est (presque dans le titre)
J'avais une macro qui protégeait une autre macro par mot de passe.
Je l'ai perdue....
La syntaxe, je ne m'en rappelle plus et comme en VBA... je coule un peu !!!
Ce serait avec un Sub() et End Sub de préférence.
Merci d'avance
Bonjour à toi.
Je n'ai pas testé ton code, j'ai d'abord essayé de le comprendre...
Je crois comprendre que c'est pour déprotéger la feuille active.
Je me suis peut être mal exprimé.
Voilà l'histoire :
J'ai sur une page d'accueil plusieurs boutons qui lancent chacun une macro.
Hors j'ai un bouton marqué "accès réservé".
Ce bouton lance la macro "Ajouts_liste".
Hors tous les utilisateurs ne doivent pas avoir accès à cette macro.
D'ou ma demande : une macro qui demande un mot de passe, si celui ci est
mauvais : message " mot de passe erroné ", s'il est bon, lancement de
"Ajouts_liste"...!
Caisse t'en penses ?
à+ Pat
"MichDenis" a écrit :
au lieu de :
ActiveSheet.Unprotect MotDePasse
tu changes cette ligne de code et tu lances
la procédure que tu désires.
call MaMacro
Cela te cause problème ?
"PLG"
Tiens, tiens... Michdenis... te re voilà !!!
Bonjour à toi.
Je n'ai pas testé ton code, j'ai d'abord essayé de le comprendre...
Je crois comprendre que c'est pour déprotéger la feuille active.
Je me suis peut être mal exprimé.
Voilà l'histoire :
J'ai sur une page d'accueil plusieurs boutons qui lancent chacun une macro.
Hors j'ai un bouton marqué "accès réservé".
Ce bouton lance la macro "Ajouts_liste".
Hors tous les utilisateurs ne doivent pas avoir accès à cette macro.
D'ou ma demande : une macro qui demande un mot de passe, si celui ci est
mauvais : message " mot de passe erroné ", s'il est bon, lancement de
"Ajouts_liste"...!
Caisse t'en penses ?
à+ Pat
"MichDenis" a écrit :
Je vais aller manger, je testerai ta proc dès le dernier coup de fouchette
avalé !
Je suppose que dans "Call ma macro"... ma macro c'est le nom que je lui ai
donné...!?
"MichDenis" a écrit :
Enfin comment dire...
Je vais pas y aller par 4 chemins...
C'est nickel !
Je te remercie une nouvelle fois, vu que c'est pas la première fois que tu
me dépannes...
J'aimerai bien maîtriser un peu le vba... ça me gave !
Je sais pas trop comment m'y prendre pour me former !
Allez bonne soirée à toi Michdenis et encore merci
"MichDenis" a écrit :