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

XL 2016 Mot de passe avec administrateur

pangasoul

XLDnaute Nouveau
Bonsoir à tous j'ai crée un mot de passe admin total et user avec restriction dans feuille paramètre avec les différentes autorisation sauf j'aimerais avoir les macro qui ne limitent pas à l'administrateur le contrôle des feuilles Merci de m'aider
 

Phil69970

XLDnaute Barbatruc
Re

@pangasoul

Je te propose ce fichier
Pour mes tests j'ai rajouté 3 feuilles ou tu n'as aucun droit dessus voir image


A l'ouverture du fichier tu remplis USF avec Admin et ton MDP et miracle l'admin voit les 3 feuilles

Le compte Admin doit être obligatoirement sur la 2 eme ligne sinon il faudra modifier le code VBA


A noter :
je ne ferais aucun commentaire sur l'inutilité et la sécurité de ta protection super illusoire !!!
Zut !!!! J'en ai fait un .....

Merci pour ton retour
 

Pièces jointes

  • MDP et ajout de feuille V1.xlsm
    111.6 KB · Affichages: 8

pangasoul

XLDnaute Nouveau
Excusez je tentais de simuler pour voir sinon l'exemple marche très bien merci frère alors pardonnez
J'ai adapté et pour le bouton commande j'ai un souci (VerifMDP) nom ambigu


Private Sub CommandButton1_Click()
'Code se déclenchant au clic sur bouton
'Si TextBox1 est vide
If TextBox1 = "" Then
'Message à l'utilisateur
MsgBox "Saisie du nom d'utilisateur obligatoire.", vbInformation
'sortie de la procédure
Exit Sub
End If
'Même chose avec TextBox2
If TextBox2 = "" Then
MsgBox "Saisie du mot de passe obligatoire.", vbInformation
Exit Sub
End If
'Lance la fonction VerifMDP en utilisant :
'- TextBox1 comme paramètre "utilisateur"
'- TextBox2 comme paramètre "MdP"
'Si la fonction renvoie FAUX :
If VerifMDP(TextBox1, TextBox2) = False Then
'c'est que le mot de passe ou l'utilisateur est faux donc
'Message à l'utilisateur
MsgBox "Erreur Mot de passe et/ou utilisateur. Merci de saisir à nouveau.", vbInformation
'on vide les 2 textbox
TextBox1 = ""
TextBox2 = ""
'on sort de la procédure
Exit Sub
End If
'A partir d'ici, le code ne se déroule que lorsque mdp et nom sont corrects.
'On peut donc afficher les feuilles correspondants à l'utilisateur saisi
AfficheFeuilles TextBox1
'masque l'UserForm
UserForm1.Hide
menu_ev.Show
End Sub
 

Discussions similaires

Réponses
2
Affichages
340
Réponses
5
Affichages
591
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…