XL 2010 Macro pour masquer des feuilles avec MDP

Dranreb à dit:

C'est parce que la feuille n'est pas protégée par un mot de passe, alors la dé-protection n'en demande pas un.
Maintenant si vous avez peur qu'un collaborateur ne se souvienne plus de son mot de passe, peut être ne faut-il pas employer le mot de passe de protection de la feuille, mais si vous voulez que ce soient des mots de passe perso, vous ne m'avez toujours pas dit où vous voulez qu'ils soient stockés, pour que toute personne un peu curieuse finisse par les trouver. Une solution en stockant dans un nom propre à la feuille plutôt un codes d'accès calculé d'après le mot de passe :

VB:

Option Explicit
Sub VoirFeuille()
   Dim Nom As String, Rép As String, Wsh As Worksheet, CodAcc#, CodCry#
   Nom = InputBox("Nom ?"): If Nom = "" Then Exit Sub
   On Error Resume Next
   Set Wsh = ThisWorkbook.Worksheets(Nom)
   If Err Then MsgBox "il n'existe pas de feuille """ & Nom & """.", _
      vbCritical, "Voir feuille": Exit Sub
   CodCry = CodeCrypté(InputBox("Mot de passe ?"))
   CodAcc = Wsh.[CodeDAccès]
   If Err Then
      If CodeCrypté(InputBox("Confirmez ce mot de passe SVP.")) <> CodCry _
         Then MsgBox "Accès dénié.", vbCritical, "Voir feuille": Exit Sub
      Wsh.Names.Add "CodeDAccès", CodCry
   ElseIf CodCry <> CodAcc Then
      MsgBox "Accès dénié.", vbCritical, "Voir feuille": Exit Sub: End If
   Wsh.Visible = xlSheetVisible
   Wsh.Activate
   If UCase(Nom) = "ERIC" Then
      For Each Wsh In ThisWorkbook.Worksheets
         Wsh.Visible = xlSheetVisible: Next Wsh: End If
   End Sub
Function CodeCrypté(ByVal MdP As String) As Double
   Const NOr = (5 ^ 0.5 + 1) / 2: Dim Code#, P&, A#
   For P = 1 To Len(MdP): A = Asc(Mid$(MdP, P, 1)) / &H100
      Code = (Code + A) ^ 7 + NOr: Code = Code - Int(Code): Next P
   CodeCrypté = Int(Code * 1E+15)
   End Function
Sub MotDePasseOublié()
   If MsgBox("Êtes-vous sûr de vouloir supprimer le code d'accès de cette feuille ?", _
      vbYesNo + vbExclamation, "Mot de passe oublié") = vbNo Then Exit Sub
   On Error Resume Next
   ActiveSheet.Names("CodeDAccès").Delete
   End Sub

Comme ça, même si c'est toujours un peu moins inviolable que le mot de passe de protection de la feuille, au moins personne à part son auteur ne sait quel mot de passe aboutit à ce code d'accès enregistré.

Cliquez pour agrandir...

Dranreb à dit:

Je le fus, mais je suis à la retraite.
On ne peut plus retrouver un mot de passe oublié, mais on peut supprimer le code d'accès de la feuille active au moyen de la Sub MotDePasseOublié
Il s'en suivra que tout mot de passe tapé par la suite sera accepté et enregistrera un nouveau code d'accès, sous réserve qu'il sera dûment confirmé.

Cliquez pour agrandir...

Dranreb à dit:

Indépendante de la VoirFeuille, seule la procédure MotDePasseOublié demande confirmation de la suppression du code d'accès de la feuille active seulement et non d'une autre masquée. En quoi vous intéressent-ils les mots de passe mis par ceux qui, contrairement à vous, n'ont accès qu'à leurs propre feuille ? J'ai l'impression que vous avez été égaré dans votre compréhension du système par une frustration infondée. Leur mot de passe ne vous regarde pas, un point c'est tout. S'il l'ont oublié, vous serez le seul habilité à leur permettre d'en mettre un autre, qui ne vous regardera pas d'avantage.

Cliquez pour agrandir...

Dranreb à dit:

S'il ne peut plus accéder à sa feuille parce qu'il a oublié le mot de passe, il devra vous demander à vous d'exécuter la procédure MotDePasseOublié sur sa feuille. Vous pouvez donner un autre nom à cette procédure d'ailleurs, NettoyerCodeAccès ce serait pas mal.

Cliquez pour agrandir...

mais j'envisage tous les cas de figure.

Cliquez pour agrandir...

Dranreb à dit:

Menu Développeur, groupe Code, commande Macros.
Je ne pense pas qu'il faille prévoir une commande pour ça, mais il serait possible de l'affecter à un bouton de formulaire présent sur toutes les feuilles. Vous pouvez aussi faire touche F5 sur la procédure dans VBA. Où définir une commande personnalisée du ruban ou de la barre d'accès rapide.

Cliquez pour agrandir...

Dranreb à dit:

Menu Développeur, groupe Code, commande Macros.
Je ne pense pas qu'il faille prévoir une commande pour ça, mais il serait possible de l'affecter à un bouton de formulaire présent sur toutes les feuilles. Vous pouvez aussi faire touche F5 sur la procédure dans VBA. Où définir une commande personnalisée du ruban ou de la barre d'accès rapide.

Cliquez pour agrandir...

Staple1600 à dit:

Re

@BOURGUIGNON
Tu as zappé le message#24, non ?
C'est volontaire ?
Ou mon hygiène buccale laisserait-elle à désirer ?
En tout cas, toi qui dit envisager tous les cas de figures, tu n'envisages apparemment pas de lire tous les messages postés dans ta discussion (lol)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Pour rejoindre Dranreb
Je te laisse faire des essais et/ou tatonner et/ou relire le message#4
Et en tirer les conséquences
Pour l'heure, moi je vais me coucher.
Bonne nuit.

Cliquez pour agrandir...