Gestion classeur par mdp

Madjon6 · 12 Janvier 2009

Bonjour,

J'ai un classeur reprenant des 2 onglets par personne et par métier, avec accès par MDP. Actuellement seul l'administrateur a accès à l'ensemble des onglets.

Voci les 2 niveaux d'autorisation :

Simple => 2 onglets seulement
Admin = tous les onglets métiers + onglet administration

Ce que je souhaite :

Il me faudrait un 3 ème profil "avancé" qui me permettrait de donner l'accès à une personne à plusieurs onglets mais sans qu'il soit administrateur et donc avoir accès à l'onglet administration.

L'idée serait de ma changer le code VBA pour ajouter ce profil avancé;

Pour ouvrir le fichier => ID = Z et mpd = 999
Et le code est protégé par le MDP = gael

Un fichier joint pour l'exemple.

Merci pour votre aide.

PascalXLD · 12 Janvier 2009

Re : Gestion classeur par mdp

Bonjour

essaies en remplaçant ton code

Code:

For Each ws In Worksheets
    If UCase(ws.Name) Like UCase(métier) & "*" Or métier = "Admin" Then
        ws.Visible = True
    End If
Next ws

par

Code:

If métier = "Admin" Then
For Each ws In Worksheets
    ws.Visible = True
Next
ElseIf métier = "Avancé" Then
For Each ws In Worksheets
    If ws.Name <> "Admin" Then ws.Visible = True
Next
Else
Sheets(LCase(métier)).Visible = True
End If

Madjon6 · 12 Janvier 2009

Re : Gestion classeur par mdp

Bonjour,

Merci Pascal ca marche.

J'ai un cas ou le collaborateur à droit à 5 onglets comment puis je codifier ca ?

L'idée serait de permettre à un profil d'accéder à plusieurs métiers en même temps.

Merci encore.

PascalXLD · 12 Janvier 2009

Re : Gestion classeur par mdp

RE

tu prends ce cas là

Code:

For Each ws In Worksheets
    If ws.Name <> "Admin" Then ws.Visible = True
Next

et tu le modifies ainsi

Code:

For Each ws In Worksheets
    If ws.Name <> "Admin" or ws.Name <> "toto" Then ws.Visible = True
Next

Madjon6 · 12 Janvier 2009

Re : Gestion classeur par mdp

Ok je vais essayer et je te dirais ce qu'il en est demain merci bcp encore Pascal.

Madjon6 · 28 Janvier 2009

Re : Gestion classeur par mdp

PascalXLD à dit:

Bonjour

essaies en remplaçant ton code

Code:

For Each ws In Worksheets
    If UCase(ws.Name) Like UCase(métier) & "*" Or métier = "Admin" Then
        ws.Visible = True
    End If
Next ws

par

Code:

If métier = "Admin" Then
For Each ws In Worksheets
    ws.Visible = True
Next
ElseIf métier = "Avancé" Then
For Each ws In Worksheets
    If ws.Name <> "Admin" Then ws.Visible = True
Next
Else
Sheets(LCase(métier)).Visible = True
End If

Bonjour Pascal,

Je reviens vers toi car en modifiant le code pour créer un 3 eme profil "Avancé" ben cela me pose un autre problème : Je n'ai plus la possibilité de modifier les identifiant ou mot des utilisateurs !! comment cela se fait il ?

Merci pour ton aide.

PascalXLD · 28 Janvier 2009

Re : Gestion classeur par mdp

Madjon6 à dit:
Bonjour Pascal,

Je reviens vers toi car en modifiant le code pour créer un 3 eme profil "Avancé" ben cela me pose un autre problème : Je n'ai plus la possibilité de modifier les identifiant ou mot des utilisateurs !! comment cela se fait il ?

Merci pour ton aide.

RE

tu pourrais développer STP

Madjon6 · 29 Janvier 2009

Re : Gestion classeur par mdp

Oui dsl,

En fait tu m 'as aidé à changé le code VBA d'un fichier pour créer un 3eme profil. Avant ce changement je pouvais mofidier les id et mdp autant de fois que je le voulais, mais depuis le changement du code, quand je souhaite modifier un id ou un mdp ben une erreur d'index survient "erreur de référencement 9"

Si tu ne vois toujours pas, si tu as 2 min reprends le fil un peu plus haut et tu verras.

Merci encore Pascal

PascalXLD · 29 Janvier 2009

Re : Gestion classeur par mdp

RE

je viens de faire le test et pas de problème

Tu peux envoyer ton fichier en retirant les données STP

Madjon6 · 29 Janvier 2009

Re : Gestion classeur par mdp

Voici le fichier en question pour tester il faut modifier les mdp et id du métier "retraite".

Ouvrir le fichier avec id et mdp : M => 123456

Protection vba => gael

Merci Pascal

aubelix · 29 Janvier 2009

Re : Gestion classeur par mdp

Bonjour MadJon6

Peux-tu retirer le MDP pour le code VBA et faire profiter la collectivité
des diverses macros.

Merci.
Cordialement.

PascalXLD · 29 Janvier 2009

Re : Gestion classeur par mdp

re

c'est cette ligne là qui pose problème

Sheets(LCase(métier)).Visible = True

là tu veux rendre visible une feuille qui porte le nom du metier

mais tu n'as pas de feuille retraite donc bug

PascalXLD · 29 Janvier 2009

Re : Gestion classeur par mdp

aubelix à dit:
Bonjour MadJon6

Peux-tu retirer le MDP pour le code VBA et faire profiter la collectivité
des diverses macros.

Merci.
Cordialement.

le code était précisé dans le post

Madjon6 · 29 Janvier 2009

Re : Gestion classeur par mdp

Le code du vba est donné dans le post je le redonne => gael

Oui j'ai bien remplacé le code par celui que tu as posté mais le souci c'est qu'après le remplacement, la modification des données (id ou mdp) dans l'onglet admin n'est plus possible car une erreur se produit...

PascalXLD · 29 Janvier 2009

Re : Gestion classeur par mdp

Madjon6 à dit:
Le code du vba est donné dans le post je le redonne => gael

Oui j'ai bien remplacé le code par celui que tu as posté mais le souci c'est qu'après le remplacement, la modification des données (id ou mdp) dans l'onglet admin n'est plus possible car une erreur se produit...

Voir mon post de 14:49

Gestion classeur par mdp

Madjon6

XLDnaute Occasionnel

Pièces jointes

PascalXLD

XLDnaute Barbatruc

Madjon6

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Madjon6

XLDnaute Occasionnel

Madjon6

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Madjon6

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Madjon6

XLDnaute Occasionnel

Pièces jointes

aubelix

XLDnaute Impliqué

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Madjon6

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Discussions similaires

Gestion classeur par mdp

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency