Conditionner exécution d'un code par mode de passe

Bonjour Le forum

Pour éviter que "n'importe qui" puisse exécuter le code ci-dessous et voir mes feuilles, je souhaite qu'on m'aide à conditionner l'exécution par l'entrée d'un mot de passe valide.

Code:

---

1 2 3 4 5 6

Sub Voir() Dim sh As Worksheet For Each sh In Worksheets sh.Visible = 1 Next sh End Sub

---

Exemple : le mot de passe sera "capi" sachant que je vais le changer dans mon cas réel.

Rebonjour le forum

Mon problème a été résolu avec le code ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() If TextBox1 = "capi" Then usf_afficher.Hide Dim sh As Worksheet For Each sh In Worksheets sh.Visible = 1 Next sh Else MsgBox "Mot de passe incorrect" End If End Sub

---

J'ai crée un usf à cet effet et le tour est joué mais avant il faut dire que l'idée m'ai parvenu grace à une vidéo regardée sur youtube.

Bonjour,

Citation:

---

Envoyé par capi81

Mon problème a été résolu avec le code ci-dessous J'ai crée un usf à cet effet et le tour est joué

---

Bien sûr personne ne pourra voir tes feuilles sauf s'il connait la procédure inhérente à Excel qui arrête l'exécution du VBA.

Le principal c'est pour toi que la sécurité existe puisque tu l'as installée mais tous ceux qui voudrons et pourrons lire ou copier tes feuilles ne te le ferons savoir.

Si tu veux un outil sécurisé et homologué pour le commerce, il vaudrait mieux utiliser d'autres procédures que celles fournies par Excel