| ||||||||
Petit astucien | De nouveau bonjour à tous ...
Je souhaiterais faire une macro sous excel, mais je souahiterais que seulement certaines personnes puissent utiliser cette fonction ...
Est-il possible de faire un truc du genre :
Clic sur le bouton -> Demande de code -> si le code est bon : applicaion de la macro, sinon nada.
C'est possible où je suis dans la science fixion. [confus]
Mon XL est le 2K.
Modifié par Droopy31 le 19/03/2004 09:14 | |||||||
Publicité | ||||||||
| ||||||||
Petit astucien | SAlut il y a peut etre plus simple mais cela marche bien.
[code]Option Explicit
Dim MotDePasse As String
Dim Reponse As String
Sub Bouton3_QuandClic()
MotDePasse = "Toto"
Reponse = InputBox("Entre votre mot de passe", "Identification")
If MotDePasse = Reponse Then
Call OK
Else
MsgBox "Vous n'avez pas acces", vbCritical, "Identification"
End If
End Sub
Sub OK()
'lance un userform
Userform1.show
End Sub
[/code] | |||||||
Petit astucien | merci ...
Donc si j'ai tout compris, la ton MdP est "Toto", c'est þa ?
Mais tout þa je l'intÞgre o¨ et pratiquement, cela fonctionne comment (j'suis pas trÞs douÚ) | |||||||
Petit astucien | Exact le mot de passe est Toto (il faut respecter majuscule et minuscule).
sur ta feuille il faut que tu mettes un bouton (avec barre d'outil formulaire). Ce bouton s'appel par exemple bouton3
Puis
tu ouvres VBA, puis menu insertion, module.
Dans ce module tu tapes le code (ou tu fais un copier coller).
Il faut Úgalement que tu rajoute un Userform (idem menu insertion puis userform) pour que mon exemple marche. | |||||||
Petit astucien | Merci bcp, þa marche nickel !!![clindoeil] | |||||||
|
Les bons plans du moment PC Astuces | Tous les Bons Plans | ||||||||||||||||||
|