Mot de passe utilisateur ne fonctionne pas
Bonjour le Forum, bonjour les experts et les aidants.
j'ai une fois encore besoin de votre aide.
Dans la base en PJ, je veux que les futurs utilisateurs entre leur nom et un mot de passe pour avoir accès à la page d'accueil.
Pour faire cela, je me suis inspirée d'aide que j'ai trouvé sur le site, mais j'ai ce msg d'erreur au lancement de ma base :
Private Sub Workbook_Open()
Dim Ws As Worksheet
'Masque toutes les feuilles sauf la feuille "Feuil5"
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil5" Then Ws.Visible = xlSheetVeryHidden
Next Ws
'Charge l'Userform2 en mémoire
Load UserForm2
'Affiche l'Userform2
UserForm2.Show
End Sub
Pouvez-vous m'aider à trouver mon erreur ?
Merci à vous tous pour votre aide
Bonjour,
Ta feuille se nomme ACCUEIL et non Feuil5 !
Feuil5 est son nom de code (CodeName). Ne pas confondre les deux...
D'autre part, pour une garantie que tes feuilles soient toujours effectivement masquées (en VeryHidden) ce n'est pas tant à l'ouverture qu'il convient de veiller qu'elles le soient (tu peux le faire pour te tranquilliser mais ce n'est pas essentiel !
Et évidemment protéger le code.
Cela n'offre tout de même pas de garantie absolue, mais rien ne l'offre vraiment... Je crois pour ma part que la sécurité est d'autant mieux assurée que l'on ne sait pas que ce que l'on ne veut pas montrer existe dans le classeur (on ne pensera pas forcément à l'y chercher...)
Cordialement.
MFerrand MERCI
J'ai modifié le nom de la feuille, comme tu me l'as indiqué et ça marche.
Merci pour ton aide et tes conseils pour la visibilité des feuilles.
bien à vous.
Bonne continuation.