XL 2019 Ouverture du fichier Excel par Authentification pour (Feuille & UserForm)

abi_71@ · 18 Janvier 2023

Bonjour à tous,

Voilà je suis face à un problème dont j'aurai besoin de votre aide.

A l'ouverture de mon classeur TEST.xlsm se fait avec une authentification par "Login et mot de passe" pour différents utilisateurs.

L'ouverture de celui-ci est directement sur la page "Accueil" et les autres feuilles ne sont pas visibles (normalement ici visible).

A ma page Accueil j'ai des boutons qui donnent accès à d'autres pages qui sont liés et j'ai des boutons qui ouvrent des UserForm.

Est-il possible d'attribuer, l'accès aux UserForm selon la connexion d'utilistaeur (voir la page gestion des accès svp!)

Exemple comme dans le tableau de la feuille gestion des accès ;

Login User1 / Invité / User2 (Invité pas de mdp juste login)
Mdp : aaaa / ............./ bbbb

si c'est l'utilisateur :

si invite aucune autorisation ni feuilles ni UserForm
si User1 accès à tous
si User2 uniquement page d'accueil
si User3 uniquement feuille 2 et UserForm 2
si User4 uniquement feuille 1 et UserForm 2

Cordialement,
Abi_71

youky(BJ) · 20 Janvier 2023

Suite à une erreur rencontrée voici un nouveau fichier.
Bruno

vgendron · 18 Janvier 2023

Bonjour

plutot que d'interdire les accès, il vaudrait mieux masquer les feuilles en xlveryhidden
car dans le fichier fourni ici, si je me loggue en User3, je n'ai normalement pas accès à la feuille de gestion des accès. et pourtant.. dans la barre des onglets en bas, il suffit de cliquer ET maintenir le clic (sans relacher) pour voir tout le contenu de la feuille..

La gestion de ton "invité" me semble incorrecte ou incomplète car, il n'apparait jamais dans le formulaire de connexion
et meme si je saisi "Invité" et mot de passe 0 (comme indiqué dans la feuille de gestion), un message me dit "erreur de mot de passe

pour l'accès aux Userform
je pense qu'il faut traiter l'autorisation de l'afficher dans l'évènement "userform_initialize"

vgendron · 18 Janvier 2023

ou plus simple sans doute.. directement dans ta macro qui lance le userform

VB:

Sub test1()
If [_utilisateur] = "user3" Then
    MsgBox ("Accès interdit")
    Exit Sub
End If
UserForm1.Show
End Sub

sousou · 18 Janvier 2023

Bonjour
En utilisant ton fichier et en renommant tes boutons,
Pourquoi pas?

youky(BJ) · 18 Janvier 2023

Bonjour tous,
Voici mon test cela fonctionne
Il faudra mettre un MP sur vba Projet
J'ai renommé les boutons
Bruno

abi_71@ · 18 Janvier 2023

Bonjour à tous,

Je vous remercie.

L'objrctif est de se connecter au classeur avec restriction mais sans masquer les objets (les boutons) je sais que c'est répétitif mais comme dans ma feuille de "gestion des accès".

N'y a-t-il pas le moyen d'interdire l'accès aux boutons sans les rendre invisibles sinon à chaque connexion le format de la page d'Accueil visuellement sera différente.

PS: 1) Pour simplifier est-il possible si c'est l'Invité connecté touts les boutons sont visibles (Feuilles et UserForm) mais quand il clic le message "Accès interdite", comme les feuilles dans mon fichier.
2) Est-ce qu'on peut définir un UserForm comme une feuille ainsi dans le tableau de gestion des accès il suffira d'ajouter le nom du UserForm avec les accès.

Cordialement,
Merci encore

youky(BJ) · 19 Janvier 2023

Bon voici un nouveau fichier,
Attention les protections sont nuls pour les feuilles .
Il suffit de se mettre en mode création en vba et on accède à tous les onglets.
A tester
Bruno

youky(BJ) · 20 Janvier 2023

Suite à une erreur rencontrée voici un nouveau fichier.
Bruno

XL 2019 Ouverture du fichier Excel par Authentification pour (Feuille & UserForm)

abi_71@

XLDnaute Junior

Pièces jointes

youky(BJ)

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

abi_71@

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Discussions similaires