GESTION DES ACCES (Administrateur et utilisateur)

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

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

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
If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
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

Bonjour richi2casa

Vois cette version si elle est bonne

Cordialement

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
            Sheets(.Cells(1, i).Value).Visible = True
        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

Re

et celle ci?

cordialement. on va essayer ensemble

bonjour

ok mais je suis debutant en vba

sheets parametrage

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 +

RE

exactement les professionnels nous suivons du debut a la fin

mrci

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

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

BONJOUR


RE

J'ais l'office 2010

debogage 12

Bonjour

le probleme est persiste malgre tes reponses

mais si en agit sur le boton parametrage qui se trouve sur la feuil "menu" , USF du passe word ca marche bien sans probleme

Re

Est ce que tu as téléchargé le 2e fichier que je t'ai envoyé?

(Que je joins à nouveau) pour faire les tests.

Rq: nos profs n'aiment pas qu'on envoie des copies d'écran

mais plutôt des fichiers.

Cela permettra aux uns et autres sûrement de pouvoir t'aider à partir de leur machine.

en épluchant les codes.

Que quelqu'un qui a office 2010 essaie d'ouvrir le fichier joint

et nous dit ce qui s'y passe SVP

Merci

Bon courage à toi

A+

bonjour

merci BAKH De votre confidentielite

Option Explicit

Private Sub Workbook_Open()
Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
   If Ws.Name <> "Menu" Then Ws.Visible = xlSheetVeryHidden
Next Ws
Load UserForm1
UserForm1.Show
End Sub

j'ais un probleme je ne sais pas prquoi?

au depart de demarrage fait un debogage

Bonjour

je diminue le fichier , mais le probleme et tjrs la.

53mdp.xlsm (29.61 Ko)

Bonsoir

Pour info : Le message d'erreur survient lorsque tu veux masquer la dernière feuille visible

Modifies ton code

Private Sub Workbook_Open()
Dim Ws As Worksheet
Sheets("Menu").Visible = xlSheetVisible
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Menu" Then Ws.Visible = xlSheetVeryHidden
Next Ws
Load UserForm1
UserForm1.Show
End Sub

Bonsoir Banzai64

Je n'avais pas vu ton message.

En tout cas tu es toujours le bienvenu

Merci par avance.

A toutaleur


Re

Le problème à mon avis vient de la feuille "parametrage"

il faut supprimer la colonne "Feuil4";

Elle correspond à la feuille "parametrage " justement

A+

BONJOUR

je pense que le probleme est resolue

merci bien

Bonjour

pour tout qui cherche la GESTION DES ACCES (Administrateur et utilisateur)

voila : le code = NOM1

Passeword = 1234

107login.xlsm (57.34 Ko)
Rechercher des sujets similaires à "gestion acces administrateur utilisateur"