Userform mot de passe

olivier · 11 Décembre 2002

Bonsoir à tous,

Grace aux indication que j'ai trouvé dans le forum, j'ai réussi à me monter une petite base de données avec des userform assez simples.

Cependant j'aimerais pouvoir proteger une partie de mes feuilles, je m'explique :
- au lancement du classeur, l'utilisateur dispose de plusieurs boutons ( recherche X, recherche Y, recherche Z, accès base de données, Quitter)
- je souhaiterai pouvoir proteger l'accès base de données et des userform rattachés ( nouvelle fiche, rechercher fiche....)
- pour cela, j'aimerai avoir, lorsque l'utilisateur clique sur accès base, l'affichage un userform du type " Entrer mot de passe Administrateur " avec également deux bouton commande du style "OK" et "Annuler"

Voilà j'espère que quelqu'un pourra me venir en aide, mais vu le niveau de ce forum, je n'en doute pas.....

Merci

Olivier

Keata · 12 Décembre 2002

Bonjour
voici un truc tout simple qui utilise un inputbox avec un code d'acces caché dans un nom (dans l'exemple le nom "passe" à la valeur "mot")

Sub Acces()
code = InputBox("Entrez le code SVP", "Acces réservé", "*****")
If code = [passe] Then
Range("B2") = "Accès autorisé"
ElseIf code = "" Then
Range("B2") = "Accès interdit"
Else
Range("B2") = "Mauvais code"
End If
End Sub

Keata

@+Thierry · 12 Décembre 2002

Bonjour OLivier et Keata,

Pour faire quelque chose de similaire par Userform plutot que par InputBox, puisqu"OLivier utilise des Userfoms déjà.

Je nai pas le temp de faire un exemple, mais tu peux aller regarder dans ce fil de discussion : 9252