[vba] Définir un mot de passe variable

sans code, on sais pas t'aider  

C'est pas évident de mettre du code, enfin, il faut considérer que les feuilles du classeurs sont en permanence bloquées. Ainsi, la procédure principale déverrouille et revérouille les feuilles à chaque fois.

For i = 3 To 14

    Sheets(i).Select

     ActiveSheet.Unprotect Password:="pass"

        Next

 
    'mettre un marqueur dans les colonnes appropriées

 
    Sheets(ongletfin).Select

    For i = colonnedeb To colonnefin Step 2

    Cells(ligneut, i).Select

    ActiveCell.Value = raison

    Next

    UserForm1.Hide

    For j = 3 To 14

Sheets(j).Select

    ActiveSheet.Protect Password:="pass", DrawingObjects:=True, Contents:=True, Scenarios:=True

    Next

On voit ici que le mot de passe est "pass". Je souhaiterais remplacer cette constante par une variable, qu'il serait alors possible de faire changer à l'utilisateur. Depuis hier, j'ai un peu avancer, et j'ai trouvé une solution qui me convient moyennement. Il s'agit de stocker le mot de passe dans l'une des feuilles excel et de le faire lire ensuite pour pouvoir le changer. Voila ce que ça donne, le but est désormais de supprimer l'étape feuille de calcul.

Application.ScreenUpdating = False

Sheets(2).Select

 Range("e5").Select

 code2 = Selection.Value

 essai = InputBox("Entrez votre ancien mot de passe", "Changement de mot de passe")

 If essai = code2 Then

saisie:

 newcode = InputBox("Entrez votre nouveau mot de passe", "Changement de mot de passe")

newcode2 = InputBox("Confirmez votre mot de passe", "changement de mot de passe")

If newcode = newcode2 Then

 Sheets(2).Select

 Range("e5").Select

 Selection.Value = newcode

 MsgBox "Votre mot de passe a été changé. Votre nouveau mot de passe est " & newcode & "  Conservez le précieusement !", vbOKOnly, "Changement effectué !"

Else

MsgBox " Les deux nouveaux mot de passe sont différents. Essayez à nouveau.", vbCritical, "Erreur"

GoTo saisie

 
 End If

 Else

 MsgBox "Le code est erroné", vbCritical, "Erreur"

 Sheets(1).Select

 Exit Sub

End If

Sheets(1).Select

Application.ScreenUpdating = True

Au temps pour moi, j'ai édité mon post

ca devient si rare les gens qui savent écrire correctement  

Malheureusement, le langage vba m'est plus hermétique...

Le langage VBA t'est plus hermétique et tu l'avoues. Je n'en aurais que plus de plaisir à critiquer ton code.  

Alors ça, ça m'énerve  

Sheets(2).Select

Range("e5" ).Select

code2 = Selection.Value

Ce n'est pas de ta faute, c'est celle de l'enregistreur de macro je suppose.

Si je te dis que la ligne suivante revient au même

Deux erreurs dans ton code, la première bégnine, l'utilisation de GOTO   l'autre plus grave : Ligne 23, tu fais un Exit Sub. La ligne 26 ne sera jamais atteinte  

Il faut remplacer le GOTO par une boucle.

Je réécris proprement ton code :

Application.ScreenUpdating = False

 
code2 = Sheets(2).Range("e5").Value

essai = InputBox("Entrez votre ancien mot de passe", "Changement de mot de passe")

 
'On se débarrasse de ceux qui ne connaissent pas le mot de passe

'Je ne remets pas le Sheets(1).Select, puisqu'on ne change plus de feuille

If code2 <> essai Then

    Application.ScreenUpdating = True

    MsgBox "Le code est erroné", vbCritical, "Erreur"

    Exit Sub

End If

 
'Boucle infini

Do While True

    newcode = InputBox("Entrez votre nouveau mot de passe", "Changement de mot de passe")

    newcode2 = InputBox("Confirmez votre mot de passe", "changement de mot de passe")

 
    ' Fin de l'infini :)

    If newcode = newcode2 Then Exit Do

 
    ' J'ai mis un s à mot, pour faire plaisir à KangOl :D

    MsgBox "Les deux nouveaux mots de passe sont différents. Essayez à nouveau.", vbCritical, "Erreur"

Loop

 
Sheets(2).Range("e5").Value = newcode

MsgBox "Votre mot de passe a été changé. Votre nouveau mot de passe est " & newcode & "  Conservez le précieusement !", vbOKOnly, "Changement effectué !"

 
Application.ScreenUpdating = True

Qu'en penses-tu ?
Que le problème n'est pas réglé ? J'y viens...

Vérifier le mot de passe d'une feuille :

Function TestMotDePasse(motdepasse As String) As Boolean

    ' La feuille est protégée

    If Sheets(1).ProtectContents Then

        'On s'apprète à gérer nous même les erreurs

        On Error GoTo GESTION_DES_ERREURS

        'Si le mot de passe n'est pas le bon --> Erreur

        Sheets(1).Unprotect Password:=motdepasse

        'Sinon, on rend à Excel le soin de gérer les erreurs

        On Error GoTo 0

        'On reprotège la feuille

        Sheets(1).Protect Password:=motdepasse

        TestMotDePasse = True

    ' La feuille n'est pas protégée

    Else

        'Si Le mot de passe donné est vide, normal, sinon, pas bon.

        'Attention, code sioux !!

        TestMotDePasse = motdepasse = ""

    End If

 
Exit Function

GESTION_DES_ERREURS:

    'On a le droit d'utiliser les GoTos et les labels pour gérer les erreurs :o

    TestMotDePasse = False

End Function

Regarde comme c'est facile :

Application.ScreenUpdating = False

 
essai = InputBox("Entrez votre ancien mot de passe", "Changement de mot de passe")

If TestMotDePasse(essai) Then

    Application.ScreenUpdating = True

    MsgBox "Le code est erroné", vbCritical, "Erreur"

    Exit Sub

End If

 
Do While True

    newcode = InputBox("Entrez votre nouveau mot de passe", "Changement de mot de passe")

    newcode2 = InputBox("Confirmez votre mot de passe", "changement de mot de passe")

    If newcode = newcode2 Then Exit Do

    MsgBox "Les deux nouveaux mots de passe sont différents. Essayez à nouveau.", vbCritical, "Erreur"

Loop

 
Sheets(1).Unprotect Password:=essai

Sheets(1).Protect Password:=newcode

 
MsgBox "Votre mot de passe a été changé. Votre nouveau mot de passe est " & newcode & "  Conservez le précieusement !", vbOKOnly, "Changement effectué !"

Application.ScreenUpdating = True

Evidemment, tout cela ne marche que pour la feuille 1. A adapter pour la feuille n.

Très bonne idée, merci d'avoir passé du temps la dessus, ça va bien m'aider. Merci aussi d'avoir relevé mes erreurs, je ne m'en était pas rendu compte. Question plus anodine, est ce grave de ne pas avoir application.screenupdating = True ? Cela entraine t il des blocages quelconques ?
Je teste ta solution. Pour généraliser à toutes les feuilles du classeurs, il me suffit de faire une petite boucle, donc pas de soucis.

Encore merci, zeb !

Pourquoi faire Application.ScreenUpdating = False, si tu ne veux pas faire un Application.ScreenUpdating = True à la fin ?
(Interdit de répondre que tu ne sais pas, l'aide existe pour ça   )

Et non, pour la boucle, en l'état.
La fonction TestMotDePasse n'est pas paramétrée pour accepter un numéro de feuille. Ligne 3, 7 et 11, il y a une référence à la feuille n°1.

Ce n'est pas impossible, mais il faudrait avec quelque chose comme ça à la place :

Function TestMotDePasse(numerofeuille As Integer, motdepasse As String) As Boolean

.....

Tu as vu comme lâchement, je laisse ce code vide  

Salut Zeb,

J'ai testé ta solution, ça marche parfaitement. Quand je parlais de boucle, c'était pour changer le mot de passe sur toutes les feuillles, en effet, il s'agit du même mot de passe sur toutes les feuilles. S'il fonctionne pour une, il fonctionne pour toutes.

Toutefois, je me heurte toujours au probleme fondamental, c'est à dire le stockage du mot de passe. En effet, si je peux aisément changer le mot de passe, je ne peux pas utiliser ce mot de passe quand l'utilisateur ne l'a pas renseigné et c'est bien la tout mon probleme.

Le but est que l'administrateur du fichier puisse changer le mot de passe s'il le souhaite mais le reste des macros doit pouvoir écrire dans les pages et donc déverouiller les pages pour écrire dedans quand les utilisateurs l'utilisent. Et ces utilisateurs ne connaissent pas le mot de passe administrateur.

La seule solution, à mon sens, serait une macro qui permette d'écrire dans le reste du module et qui aille remplacer le mot de passe dans chacun des morceaux de code (on peut aussi envisager que je regroupe cela dans un seul sub qui servirait à déverrouiller / reverrouiller les pages.) J'ai beau chercher dans l'aide et sur d'autres forums (google est mon ami, je le sais), je ne trouve pas de solution.

Quand au screenupdating, ma question venait du fait que je ne constate pas de bug quand on "oublie" de le réactiver...

Merci de ton aide dans tous les cas, j'apprends beaucoup à ton contact.

Il n'est heureusement pas possible de lire les mots de passe. On ne peut que saisir un mot de passe pour déverouiller la feuille et vérifier que cela c'est bien passé.

Les macros ne peuvent pas s'auto-écrire.
EDIT: Les macros peuvent s'auto-écrire.  

Si ça peut t'intéresser, au cours de mes périgrinations, j'ai trouvé ça.

Sub RemplacementMotDansProcedure()

    'Nécéssite d'activer la référence

    '"Visual basic For Application Extensibility 5.3"

    '

    Dim Ancien As String, Nouveau As String, Cible As String

    Dim VBComp As VBComponent

    Dim i As Integer

    Dim Wb As Workbook

 
    Set Wb = Workbooks("NomClasseur.xls")

 
    Ancien = "Feuil1"

    Nouveau = "Feuil3"

 
    For Each VBComp In Wb.VBProject.VBComponents

        For i = 1 To VBComp.CodeModule.CountOfLines

            Cible = VBComp.CodeModule.Lines(i, 1)

            Cible = Replace(Cible, Ancien, Nouveau)

            VBComp.CodeModule.ReplaceLine i, Cible

        Next i

    Next VBComp

End Sub

Je vais essayer de définir mon mot de passe par une variable qui serait initialiser avec le mot de passe, mot de passe qui serait modifier par cette procédure lors des changements de mot de passe. Mauvaise idée à ton avis, problème de stabilité peut être...

Whaou.... C'est chiadé !
Je regarde ça de plus près

Je ne trouve pas la référence Visual basic for application extensibility 5.3. Tu la trouves toi ? Sinon, c'est peut être juste une mauvaise blague...

Moi non plus, ça marche sans.
Bon à part ça, le code proposé n'est pas beau du tout. Je t'en refais un  
...

La référence s'appelle "Visual Basic For Applications Extensibility" ou "Microsoft Visual Basic For Applications Extensibility 5.3" selon les versions d'Excel