Ouvrir une feuille excel avec code securité

[chrisclaret]

Bonjour à tous,

Je souhaite donner l'acces à une feuille excel d'un classeur à tte personne possedant un mot de passe et un code utilisateur.
Bien entendu chaque personne ne pourra ouvrir que sa propre feuille.
L'administrateur aura acces avec son mot de passe et son identifiant à toutes les feuilles pour modification si necessaire.
Je m'etais inspiré d'une ressource de Boisgontier sur le site que je vous met en piece jointe avec mon fichier modifié pour l'occasion.
Merci à tous,
chris

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Alors , pas d'idée ?
Chris

 

[Compte Supprimé 979]

Re : Ouvrir une feuille excel avec code securité

Bonjour Chrisclaret ;-)

Voici ton fichier avec l'USF et le code qui va bien (j'espère)

Pour l'administrateur et vue de toutes les feuilles
Login : Administrateur
Mdp : admin

A+

 

[Jam]

Re : Ouvrir une feuille excel avec code securité

Salut Chrisclaret, Bruno,

Ci-joint un fichier qui devrait faire ton affaire.
Utilise admin et pass pour te "connecter". Il y a une feuille dans laquelle on renseigne qui accède à quoi.

Bon courage

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Bonjour à tous et merci à vous 2 ,
Mais comme j'avais commencé de matin à me servir de celui de BrunoM45 et que j'avais fait ttes les modifs , je prefere rester dessus et revenir sur le tien apres Jam si necessaire.
Donc , j'ai modifié mon fichier de base qui contient plus de noms et là j'ai beau copier à l'identique les macros,userform cela ne marche pas aussi bien que le tient BrunoM45 .(Il ne me demande aucun code d'acces...)
Ensuite si possible je souhaiterais que hormis l'administrateur qui a tous les droits que chaque personne qui se connecte sur sa feuille ne puisse pas la modifier(cellules verrouillees ou autres moyens....).
Juste une chose , en cas d'erreur il ne me propose pas un 2eme essai ni un 3eme...
Je te mets en fichier joint mon document..
Bon boulot !,
Chris

 

[Compte Supprimé 979]

Re : Ouvrir une feuille excel avec code securité

Salut Chrisclaret

Attention, il te manque les 2 sub que j'avais mis dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Name <> "Accueil" Then
      Sht.Visible = xlSheetVeryHidden
    End If
  Next
  ThisWorkbook.Save
End Sub


Private Sub Workbook_Open()
  UsF_Mdp.Show
End Sub

Pour le problème du décompte, j'ai mis l'instruction

Unload ME

au mauvais endroit
Voici le bon code pour le bouton valider

Private Sub Cmd_Ok_Btn_Click()
  Dim Rech As Range
  Dim sFeuille As String
  Static TentativePW As Byte, TentativeID As Byte


  If Txb_ID_Util = Empty Then Exit Sub
  
  Set Rech = Sheets("Admin").Range("A:A").Find(Txb_ID_Util, LookIn:=xlValues, lookat:=xlWhole)
  If Not Rech Is Nothing Then
    If Txb_Pwd_Util = Rech.Offset(0, 1) Then
      Me.Hide ' Masquer l'USF
      sFeuille = Rech.Offset(0, 2)
      AfficherFeuille (sFeuille)
      ' Fermer l'USF
      Unload Me
    Else
      TentativePW = TentativePW + 1
      If TentativePW > 3 Then ThisWorkbook.Close 0
      MsgBox "Mot de passe invalide, Tentative N° " & TentativePW & " Sur 3", vbCritical, T
      With Me.Txb_Pwd_Util
        .Value = ""
        .SetFocus
      End With
    End If
  Else
    TentativeID = TentativeID + 1
    If TentativeID > 3 Then ThisWorkbook.Close 0
    MsgBox "Utilisateur inconnu, , Tentative N° " & TentativeID & " Sur 3", vbCritical, T
    With Me.Txb_ID_Util
      .SetFocus
      .SelStart = 0
      .SelLength = Len(Me.Txb_ID_Util.Text)
    End With
  End If
End Sub

A+

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Grand Merci Bruno et respect pour ton travail ! Tout fonctionne...
Et pour la suite , est-ce faisable ?
"Ensuite si possible je souhaiterais que hormis l'administrateur qui a tous les droits que chaque personne qui se connecte sur sa feuille ne puisse pas la modifier(cellules verrouillees ou autres moyens pour ne pas modifier les cellules....).
Je te remets en fichier joint mon document au cas ou....."
Bon boulot ! Bravo !
Chris

 

[Compte Supprimé 979]

Re : Ouvrir une feuille excel avec code securité

Re,

Regarde avec cette nouvelle version

Toutes les cellules de chaque feuille, ainsi que chaque feuille sont protégées (mdp = toto)
J'ai également protéger la structure du classeur pour éviter tout ajout inopiné

A+

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Il semblerait qu'il y ait un bug ds cette macro selon le debogueur qui bloque sur le stop...apres avoir saisi les identifiants et mdp..
"Private Sub Cmd_Ok_Btn_Click()
Dim Rech As Range
Dim sFeuille As String
Static TentativePW As Byte, TentativeID As Byte
Stop"
A propos comment modifier la structure du classeur si je veux faire des modifs ?
Est-ce que ds ta version l'administrateur travaille sans verrouillage ou doit-il aussi deverouiller les pages avec ton mpd "toto"
Voilà,
A+
Chris

 

[Compte Supprimé 979]

Re : Ouvrir une feuille excel avec code securité

Re,

Désolé, j'ai laissé l'instruction, il faut enlever "stop" c’était pour test

La structure est déprotégée en mode administrateur, bien sur

A+

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Bravo , excellent travail !
Juste une petite chose...
Je voulais rajouter qq macros d'origine pour completer son fonctionnement mais lorsque je vais dans "affichage" puis "macros" il n'y a plus rien...
Sans doute dû à la protection mais meme en mode administrateur cela ne fonctionne pas.(Aucune macro n'apparait)
J'ai essayé d'ôter la protection en passant par" Fichie"r puis proteger"(strucuture et feuille)"...avec ton mot de passe mais là encore elles n'apparaissent pas
Sinon un dernier detail , lorsque je ferme le document apres utilisation il semblerait qu'il s'enregistre automatiquement car à chaque réouverture l'heure de modification correspond à la derniere fermeture meme sans avoir enregistré...
A+
Chris

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Bonjour Bruno,
Je suis bloqué , n'arrive tjrs pas à faire apparaitre ttes les macros en mode administrateur pour ensuite les modifier ou en ajouter...
Existe-t-il une solution ?
Merci
Chris

 

[Jam]

Re : Ouvrir une feuille excel avec code securité

slt chrisclaret, BrunoM,

Les macros sont dans le userform (faire F7 pour afficher le code qui est "derrière" la forme) et dans ThisWorkbook.

Bon courage

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Salut Bruno,
Merci pour l'info..
J'utilise certaines de tes macros ds un autre programme maintenant qui semble fonctionner.
J'en suis à l'etape protection des feuilles + structure.
Cela est long et fastidieux de faire cela 1 par 1 en allant ds fichier , protection , mot de passe...
Existe-t-il un moyen plus rapide ?
En tout cas un grand merci !
Chris

 

[chrisclaret]

Re : Ouvrir une feuille excel avec code securité

Une derniere question , pourquoi est-ce qu'il enregistre systématiquement ?
Excel ne me demande pas si je veux enregistrer apres une modification ?
A+
Chris