XL 2016 Mot de passe avec administrateur

[pangasoul]

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]

Bonjour @pangasoul

Il manque pas un petit quelque chose à ta demande ?



























Pas d'idée ?


















Toujours pas ??




















Allez je te souffle il nous manque ton fichier !!!

 

[pangasoul]

Bonjour en effet en utilisant mon application il y'a des feuilles qui s'ajoutent je ne sais comment dire dans vba pour que admin ait le contrôle de toutes les feuilles ajoutées

 

[Phil69970]

Re
@pangasoul

Tu n'aurais pas un problème de vue ?

 

[pangasoul]

ADMIN = toussida USER = damso
quand je valide mes données sur la feuille formulaire je créé également une autre feuille mais comment faire que dans la feuille paramètre ça considère et me permette de rouvrir mon fichier prochainement

 

[pangasoul]

Excusez j'avais oublié de joindre le fichier

 

[Phil69970]

Re

@pangasoul

Enfin j'ai cru qu'il ne viendrait jamais et c'est pas faute d'avoir insisté lourdement !!!

 

[Phil69970]

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

 

[Phil69970]

Re

@pangasoul

Merci pour ton retour

Pas de retour ?????
Pas cool !!

 

[pangasoul]

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