Nous allons maintenant paramétrer un message de bienvenue pour chaque utilisateur, c’est-à-dire si vous vous connecter de la feuille Login et arrivé sur la feuille Accueil, le système va récupérer vos identifiants Txt_User et vous l’afficher comme un message de bienvenue (Bonjour ! Administrateur) par exemple d’accord mais vous pouvez paramétrez à volonté un message qui …
Alors la course continue, bien commençons la programmation, aller directement dans la VBA, rappelez-vous que nous avions autoriser d’afficher les feuilles Accueil et Membres seul pour utilisateur nous sommes d’accord pour ça, mais dans le cas des autres utilisateurs qui n’est pas Administrateur, alors nous juste leurs affichées la feuille Accueil et libre à vous …
Les feuilles d'affichages pour les autres membres Lire la suite »
Mais nous allons quand même afficher un message d’erreur au cas ou l’utilisateur tape un mauvais identifiant ou mot de passe, en bas de notre code nous allons nous placer avant la fermeture de notre End if et taper Else MsgBox ’’L’utilisateur ou mot de passe est incorrect’’ bien je vous explique, nous allons ordonner …
Mais au cas où vous aurez une erreur par rapport à votre actuelle, nous allons rajouter un bout de code un peu plus haut (On Error Resume Next) cela veut dire que s’il rencontre peut importe erreur, il va juste continuer son exécution, ce qui nous donnera cette figure suivante. Et dans ce cas sauvegarder …
Pour créer ses conditions nous allons faire appel à une fonction (SI) qui est en anglais (IF), voici comment cela va ressembler dans cette figure. On va faire appel à la condition if pass = Txt_pass and role = ‘’Admin’’ Then, si le mot de passe est égal à Txt_pass et le role est égal …
Cependant nous allons configurer la variable mot de passe et pour ce faire voici le code avec un peu d’explication, on va écrire pass = worksheetfunction point . avec une recherche ici qui est rechercheV VLookup et on ouvre notre parenthèse ( maintenant il nous faut d’abord les critères alors la première chose à rechercher …
Après avoir faire double cliques sur le bouton Se Connecter, et dans le code suivant aller complètement en haut du code et mettez ce code Option Explicit et puis sur la partie du bouton mettez ce code Dim role As String Dim pass As String ce qui nous donne cette figure suivante.
Comme on peut maintenant se connecter et se déconnecter sans mettre les identifiants, maintenant le but est contrôlé tout cela par un identifiant et un mot de passe suivi par un rôle bien définir de chaque utilisateur, bien nous allons d’abord contrôler l’administrateur et ses accès dans notre base de données et pour cela nous …
Faite double cliques sur le bouton Se Connecter qui est sur la feuille Login et si cela ne fonctionne alors il n’est pas en mode création alors vous savez quoi faire, nous voici dans le code VBA .
Maintenant double clique à nouveau sur notre bouton (Se Connecter) et boom vous êtes dans VBA comme la figure suivante. Bien éditons ensemble les codes VBA. Dans ce code VBA, nous allons demander à notre bouton de nous exécuter un code après avoir fait un clique dessus, maintenant que va-t-il se passer dès que allons …
