GESTION DES ACCES (Administrateur et utilisateur) Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 27 novembre 2014, 22:58

BONJOUR
JAI BESOIN DE VOTRE AIDE POUR UNE GESTION
DES ACCES (Administrateur et utilisateur)

1ere Etape: l'administrateur remplit le tableau en inserant
les mots de passe
puis insere une croix dans les cases
base données jusqu'à Menu pour donner acces
a chaque personne

Si une case n'est pas cocher alor cette personne
n'aura pas acces

Exemple: si pour Nom 1 les cases Produits et Fournisseurs et Masque_Bons sont
cochées, alors il ne pourra avoir acces qu'à ces Feuilles

l'administrateurs devra avoir acces à toutes les feuilles
dont il cochera tout


2e Etape: chaque personne insere son mot de passe et valide
ce qui lui permettra de pouvoir acces a ses feuilles
les autres restant non accessibles
Gestion de la pharmaci.xlsm
(246.31 Kio) Téléchargé 102 fois
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 28 novembre 2014, 08:13

Bonjour
j ai fait un essai mais je n arrive pas
Option Explicit

Private Sub Workbook_Open()
Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
  [color=#FFFF00]  If Ws.Name <> "Feuil1" Then Ws.Visible = xlSheetVeryHidden[/color]
Next Ws
Load UserForm1
UserForm1.Show
End Sub

MERCI
Gestion de la pharmaci.xlsm
(243.03 Kio) Téléchargé 50 fois
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 28 novembre 2014, 10:10

Bonjour
je change le code suivant est ca marche
Option Explicit

Private Sub Workbook_Open()
Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "parametrage" Then Ws.Visible = xlSheetVeryHidden
Next Ws
Load UserForm1
UserForm1.Show
End Sub
mais reste le code suivant il me bloque
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("parametrage") 'dans la feuille paramétrage
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
For i = 3 To Col
[surligner]If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule[/surligner]
Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
Else
Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
End If
Next i
End With
End Sub
merci de votre aide
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
B
BAKH
Membre fidèle
Membre fidèle
Messages : 216
Appréciation reçue : 1
Inscrit le : 7 décembre 2012
Version d'Excel : 2007

Message par BAKH » 28 novembre 2014, 11:30

Bonjour richi2casa
Vois cette version si elle est bonne
Cordialement
Gestion de la pharmaci v1.xlsm
(220.64 Kio) Téléchargé 74 fois
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 28 novembre 2014, 11:46

Bonjour
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer

With Sheets("parametrage") 'dans la feuille paramétrage
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then
            [surligner]Sheets(.Cells(1, i).Value).Visible = True[/surligner]
        Else
            Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden
        End If
    Next i
End With
End Sub
merci ca marche pour la feuil "Menu"
mais le probleme tjs existe
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
B
BAKH
Membre fidèle
Membre fidèle
Messages : 216
Appréciation reçue : 1
Inscrit le : 7 décembre 2012
Version d'Excel : 2007

Message par BAKH » 28 novembre 2014, 12:20

Re
et celle ci?
cordialement. on va essayer ensemble
Gestion de la pharmaci v2.xlsm
(227.84 Kio) Téléchargé 126 fois
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 28 novembre 2014, 13:12

bonjour
ok mais je suis debutant en vba
Sheets parametrage.png
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
B
BAKH
Membre fidèle
Membre fidèle
Messages : 216
Appréciation reçue : 1
Inscrit le : 7 décembre 2012
Version d'Excel : 2007

Message par BAKH » 28 novembre 2014, 13:42

Re
Je le suis autant.
Les pro nous suivent. C'est pourquoi je dis on va essayer ensemble
Il vaut mieux prendre le fichier que je vous ai envoyé.
J'ai ajouté dans la feuille "paramétrage" les colonnes correspondant aux feuilles manquantes
en y inscrivant le nom de l'onglet que tu leur a donné.
Je les ai toutes mises à Visibles par défaut.
Je te laisse voir
A +
Avatar du membre
richi2casa
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 3 octobre 2014
Version d'Excel : 2010 FR

Message par richi2casa » 28 novembre 2014, 13:56

RE
exactement les professionnels nous suivons du debut a la fin
mrci
Ce n'est pas la volonté qui mène au but, mais le but qui donne la volonté
B
BAKH
Membre fidèle
Membre fidèle
Messages : 216
Appréciation reçue : 1
Inscrit le : 7 décembre 2012
Version d'Excel : 2007

Message par BAKH » 28 novembre 2014, 14:53

Mais dans ton post tu ne dis pas si c'est bon ou pas
Si ce n'est pas bon quel est le message d'erreur
En tout cas chez moi c'est bon avec le fichier v2 que je t'ai envoyé
A te relire
Cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message